(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    112060,       2918]
NotebookOptionsPosition[    109227,       2826]
NotebookOutlinePosition[    109592,       2842]
CellTagsIndexPosition[    109549,       2839]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Setup MEH[k]", "Subsubsection",
 CellChangeTimes->{{3.570327517917389*^9, 3.57032751997117*^9}, {
  3.570327554725595*^9, 3.57032755584058*^9}, {3.570327787927311*^9, 
  3.5703277888672857`*^9}, {3.5703722949756393`*^9, 3.570372296323347*^9}, {
  3.592769661830781*^9, 3.592769666954217*^9}, {3.5934466262643137`*^9, 
  3.593446628768866*^9}, {3.593469393516514*^9, 3.593469394584261*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"c", " ", "=", " ", "299792.458"}], ";", " ", 
  RowBox[{"z", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"h", "=", "0.70"}], ";", 
  RowBox[{"Omm", " ", "=", " ", "0.27"}], ";", 
  RowBox[{"Omb", "=", "0.04"}], ";", 
  RowBox[{"keq", " ", "=", " ", 
   FractionBox[
    RowBox[{"0.0746", "*", "Omm", "*", 
     SuperscriptBox["h", "2"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2.728", "/", "2.7"}], ")"}], "2"]]}], ";", 
  RowBox[{"zdrag", "=", 
   RowBox[{"1291", "*", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"Omm", "*", 
        RowBox[{"h", "^", "2"}]}], ")"}], "^", 
      RowBox[{"(", "0.251", ")"}]}], "/", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"0.659", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"Omm", "*", 
           RowBox[{"h", "^", "2"}]}], ")"}], "^", 
         RowBox[{"(", "0.828", ")"}]}]}]}], ")"}]}], "*", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"0.313", "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"Omm", "*", 
          RowBox[{"h", "^", "2"}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"-", "0.419"}], ")"}]}], "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"0.607", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Omm", "*", 
             RowBox[{"h", "^", "2"}]}], ")"}], "^", "0.674"}]}]}], ")"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"Omb", "*", 
          RowBox[{"h", "^", "2"}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"0.238", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Omm", "*", 
             RowBox[{"h", "^", "2"}]}], ")"}], "^", "0.223"}]}], ")"}]}]}]}], 
     ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"zeq", "=", 
   RowBox[{"2.50", "*", 
    RowBox[{"10", "^", "4"}], "*", "Omm", "*", 
    RowBox[{
     RowBox[{"h", "^", "2"}], "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2.726", "/", "2.7"}], ")"}], "^", "4"}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Rd", "=", 
    RowBox[{"31.5", "*", "Omb", "*", 
     RowBox[{"h", "^", "2"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2.726", "/", "2.7"}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"-", "4"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", "zdrag"}], ")"}], "/", 
        RowBox[{"10", "^", "3"}]}], ")"}]}]}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"R_drag", " ", "in", " ", 
    RowBox[{"tf_fit", ".", "c"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Req", "=", 
   RowBox[{"31.5", "*", "Omb", "*", 
    RowBox[{"h", "^", "2"}], "*", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2.726", "/", "2.7"}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"-", "4"}], ")"}]}], "/", 
     RowBox[{"(", 
      RowBox[{"zeq", "/", 
       RowBox[{"10", "^", "3"}]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", 

 RowBox[{
  RowBox[{
   RowBox[{"kSilk", "=", 
    RowBox[{"1.6", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"Omb", "*", 
        RowBox[{"h", "^", "2"}]}], ")"}], "^", 
      RowBox[{"(", "0.52", ")"}]}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"Omm", "*", 
        RowBox[{"h", "^", "2"}]}], ")"}], "^", 
      RowBox[{"(", "0.73", ")"}]}], "*", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"10.4", "*", "Omm", "*", 
          RowBox[{"h", "^", "2"}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"-", "0.95"}], ")"}]}]}], ")"}]}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"in", " ", 
    RowBox[{"Mpc", "^", 
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}]}]}], " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"xx", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"2", "/", "3"}], "/", "keq"}], "*", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"6", "/", "Req"}], "]"}], "*", 
     RowBox[{"Log", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Sqrt", "[", 
          RowBox[{"1", "+", "Rd"}], "]"}], "+", 
         RowBox[{"Sqrt", "[", 
          RowBox[{"Rd", "+", "Req"}], "]"}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"Sqrt", "[", "Req", "]"}]}], ")"}]}], "]"}]}]}], ";"}], 
  StyleBox[
   RowBox[{"(*", " ", "sound_horizon", " ", "*)"}],
   FontColor->GrayLevel[0]]}], "\n", 
 RowBox[{
  RowBox[{"\[Beta]c", "=", 
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{
       RowBox[{"0.944", "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"458", "*", "Omm", "*", 
             RowBox[{"h", "^", "2"}]}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"-", "0.708"}], ")"}]}]}], ")"}]}], "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"Omm", "-", "Omb"}], ")"}], "/", "Omm"}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"0.395", "*", "Omm", "*", 
              RowBox[{"h", "^", "2"}]}], ")"}], "^", 
            RowBox[{"(", 
             RowBox[{"-", "0.0266"}], ")"}]}], ")"}]}], "-", "1"}], ")"}]}]}],
      ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]b", "=", 
   RowBox[{"0.5", "+", 
    RowBox[{"Omb", "/", "Omm"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"3", "-", 
       RowBox[{"2", "*", 
        RowBox[{"Omb", "/", "Omm"}]}]}], ")"}], "*", 
     RowBox[{"Sqrt", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"17.2", "*", "Omm", "*", 
          RowBox[{"h", "^", "2"}]}], ")"}], "^", "2"}], "+", "1"}], 
      "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Alpha]c", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"46.9", "*", "Omm", "*", 
          RowBox[{"h", "^", "2"}]}], ")"}], "^", 
        RowBox[{"(", "0.670", ")"}]}], "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"32.1", "*", "Omm", "*", 
            RowBox[{"h", "^", "2"}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"-", "0.532"}], ")"}]}]}], ")"}]}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "Omb"}], "/", "Omm"}], ")"}]}], "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"12.0", "*", "Omm", "*", 
          RowBox[{"h", "^", "2"}]}], ")"}], "^", 
        RowBox[{"(", "0.424", ")"}]}], "*", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"45.0", "*", "Omm", "*", 
            RowBox[{"h", "^", "2"}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"-", "0.582"}], ")"}]}]}], ")"}]}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"Omb", "/", "Omm"}], ")"}], "^", "3"}]}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Alpha]b", "=", 
   RowBox[{"2.07", "*", "keq", "*", "xx", "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", "Rd"}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "3"}], "/", "4"}], ")"}]}], "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", "zeq"}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"1", "+", "zdrag"}], ")"}]}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "6"}], "*", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "+", "zeq"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"1", "+", "zdrag"}], ")"}]}]}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", "+", 
         RowBox[{"3", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", "zeq"}], ")"}], "/", 
           RowBox[{"(", 
            RowBox[{"1", "+", "zdrag"}], ")"}]}]}]}], ")"}], "*", 
       RowBox[{"Log", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{"1", "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "+", "zeq"}], ")"}], "/", 
              RowBox[{"(", 
               RowBox[{"1", "+", "zdrag"}], ")"}]}]}], "]"}], "+", "1"}], 
          ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{"1", "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "+", "zeq"}], ")"}], "/", 
              RowBox[{"(", 
               RowBox[{"1", "+", "zdrag"}], ")"}]}]}], "]"}], "-", "1"}], 
          ")"}]}], "]"}]}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TransferEH", "[", "k_", "]"}], ":=", " ", 
   RowBox[{"Piecewise", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Omm", "-", "Omb"}], ")"}], "/", "Omm"}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "/", 
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"k", "*", 
                    RowBox[{"xx", "/", "5.4"}]}], ")"}], "^", "4"}]}], 
                ")"}]}], ")"}], "*", 
             RowBox[{
              RowBox[{"Log", "[", 
               RowBox[{"E", "+", 
                RowBox[{"1.8", "*", "\[Beta]c", "*", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"k", "/", "keq"}], "/", "13.41"}], ")"}]}]}], 
               "]"}], "/", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Log", "[", 
                 RowBox[{"E", "+", 
                  RowBox[{"1.8", "*", "\[Beta]c", "*", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"k", "/", "keq"}], "/", "13.41"}], ")"}]}]}], 
                 "]"}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"14.2", "+", 
                   RowBox[{"386", "/", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"69.9", "*", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"k", "/", "keq"}], "/", "13.41"}], ")"}], "^", 
                    "1.08"}]}]}], ")"}]}]}], ")"}], "*", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"k", "/", "keq"}], "/", "13.41"}], ")"}], "^", 
                  "2"}]}]}], ")"}]}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"(", 
                RowBox[{"1", "/", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"k", "*", 
                    RowBox[{"xx", "/", "5.4"}]}], ")"}], "^", "4"}]}], 
                  ")"}]}], ")"}]}], ")"}], "*", 
             RowBox[{
              RowBox[{"Log", "[", 
               RowBox[{"E", "+", 
                RowBox[{"1.8", "*", "\[Beta]c", "*", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"k", "/", "keq"}], "/", "13.41"}], ")"}]}]}], 
               "]"}], "/", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Log", "[", 
                 RowBox[{"E", "+", 
                  RowBox[{"1.8", "*", "\[Beta]c", "*", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"k", "/", "keq"}], "/", "13.41"}], ")"}]}]}], 
                 "]"}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"14.2", "/", "\[Alpha]c"}], "+", 
                   RowBox[{"386", "/", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"69.9", "*", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"k", "/", "keq"}], "/", "13.41"}], ")"}], "^", 
                    "1.08"}]}]}], ")"}]}]}], ")"}], "*", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"k", "/", "keq"}], "/", "13.41"}], ")"}], "^", 
                  "2"}]}]}], ")"}]}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"Omb", "/", "Omm"}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"Log", "[", 
                RowBox[{"E", "+", 
                 RowBox[{"1.8", "*", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"k", "/", "keq"}], "/", "13.41"}], ")"}]}]}], 
                "]"}], "/", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Log", "[", 
                  RowBox[{"E", "+", 
                   RowBox[{"1.8", "*", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"k", "/", "keq"}], "/", "13.41"}], ")"}]}]}], 
                  "]"}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"14.2", "+", 
                    RowBox[{"386", "/", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    RowBox[{"69.9", "*", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"k", "/", "keq"}], "/", "13.41"}], ")"}], "^", 
                    RowBox[{"(", "1.08", ")"}]}]}]}], ")"}]}]}], ")"}], "*", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"k", "/", "keq"}], "/", "13.41"}], ")"}], "^", 
                   "2"}]}]}], ")"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"k", "*", 
                  RowBox[{"xx", "/", "5.2"}]}], ")"}], "^", "2"}]}], ")"}]}], 
            "+", 
            RowBox[{"\[Alpha]b", "*", 
             RowBox[{
              RowBox[{"Exp", "[", 
               RowBox[{"-", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"k", "/", "kSilk"}], ")"}], "^", "1.4"}]}], "]"}], 
              "/", 
              RowBox[{"(", 
               RowBox[{"1", "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"\[Beta]b", "/", "k"}], "/", "xx"}], ")"}], "^", 
                 "3"}]}], ")"}]}]}]}], ")"}], 
          RowBox[{
           RowBox[{"Sin", "[", 
            RowBox[{"k", "*", 
             RowBox[{"xx", "/", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"8.41", "*", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Omm", "*", 
                    RowBox[{"h", "^", "2"}]}], ")"}], "^", 
                    RowBox[{"(", "0.435", ")"}]}], "/", "k"}], "/", "xx"}]}], 
                   ")"}], "^", "3"}]}], ")"}], "^", 
               RowBox[{"(", 
                RowBox[{"1", "/", "3"}], ")"}]}]}]}], "]"}], "/", 
           RowBox[{"(", 
            RowBox[{"k", "*", 
             RowBox[{"xx", "/", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"8.41", "*", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"Omm", "*", 
                    RowBox[{"h", "^", "2"}]}], ")"}], "^", 
                    RowBox[{"(", "0.435", ")"}]}], "/", "k"}], "/", "xx"}]}], 
                   ")"}], "^", "3"}]}], ")"}], "^", 
               RowBox[{"(", 
                RowBox[{"1", "/", "3"}], ")"}]}]}]}], ")"}]}]}]}], ",", 
        RowBox[{"k", ">", "0"}]}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"1.0", ",", " ", 
        RowBox[{"k", "\[Equal]", "0"}]}], "}"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Hubble", "[", "zz_", "]"}], ":=", 
    RowBox[{"100", " ", "h", " ", 
     SqrtBox[
      RowBox[{
       RowBox[{"Omm", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "zz"}], ")"}], "3"]}], "+", 
       RowBox[{"(", 
        RowBox[{"1", "-", "Omm"}], ")"}]}]]}]}], ";"}], "\[IndentingNewLine]",
   "\n", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"don", "'"}], "t", " ", "forget", " ", "below", " ", "is", " ", 
    "only", " ", "valid", " ", "for", " ", "a", " ", "flat", " ", 
    "\[CapitalLambda]CDM", " ", "or", " ", "CDM", " ", "universe"}], 
   "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Growth", "[", "zz_", "]"}], ":=", 
   RowBox[{
    FractionBox[
     RowBox[{"5", " ", "Omm"}], "2"], " ", 
    FractionBox[
     RowBox[{"Hubble", "[", "zz", "]"}], 
     RowBox[{"100", " ", "h"}]], 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      FractionBox[
       RowBox[{"(", 
        RowBox[{"1", "+", "y"}], ")"}], 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"Hubble", "[", "y", "]"}], 
          RowBox[{"100", " ", "h"}]], ")"}], "3"]], ",", 
      RowBox[{"{", 
       RowBox[{"y", ",", "zz", ",", "\[Infinity]"}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"MEH", "[", "k_", "]"}], ":=", 
    RowBox[{
     RowBox[{
      RowBox[{"2.", "/", "3."}], "/", "Omm"}], "*", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "/", 
        RowBox[{"(", 
         RowBox[{"100", " ", "h"}], ")"}]}], ")"}], "2"], "*", 
     RowBox[{"TransferEH", "[", "k", "]"}], "*", 
     SuperscriptBox["k", "2"], "*", 
     RowBox[{"Growth", "[", "z", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Simple", " ", 
    RowBox[{"Transfer", "[", "k", "]"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Omb", " ", "=", " ", "0.04"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"baryon", " ", "density"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalGamma]", "=", 
   RowBox[{"Omm", "*", "h", "*", 
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", "Omb"}], 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{
         RowBox[{"Sqrt", "[", 
          RowBox[{"2", "*", "h"}], "]"}], "/", "Omm"}]}], ")"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Transfer", "[", "k_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"1", "+", 
       RowBox[{"2.34", 
        RowBox[{"(", 
         RowBox[{"k", "/", 
          RowBox[{"(", 
           RowBox[{"h", "*", "\[CapitalGamma]"}], ")"}]}], ")"}]}]}], "]"}], 
     "/", 
     RowBox[{"(", 
      RowBox[{"2.34", "*", 
       RowBox[{"(", 
        RowBox[{"k", "/", 
         RowBox[{"(", 
          RowBox[{"h", "*", "\[CapitalGamma]"}], ")"}]}], ")"}]}], ")"}]}], 
    "*", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"3.89", "*", 
        RowBox[{"(", 
         RowBox[{"k", "/", 
          RowBox[{"(", 
           RowBox[{"h", "*", "\[CapitalGamma]"}], ")"}]}], ")"}]}], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"16.1", "*", 
          RowBox[{"(", 
           RowBox[{"k", "/", 
            RowBox[{"(", 
             RowBox[{"h", "*", "\[CapitalGamma]"}], ")"}]}], ")"}]}], ")"}], 
        "2"], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"5.46", "*", 
          RowBox[{"(", 
           RowBox[{"k", "/", 
            RowBox[{"(", 
             RowBox[{"h", "*", "\[CapitalGamma]"}], ")"}]}], ")"}]}], ")"}], 
        "3"], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"6.71", "*", 
          RowBox[{"(", 
           RowBox[{"k", "/", 
            RowBox[{"(", 
             RowBox[{"h", "*", "\[CapitalGamma]"}], ")"}]}], ")"}]}], ")"}], 
        "4"]}], ")"}], 
     RowBox[{"-", "0.25"}]]}]}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.563542383318079*^9, 3.563542460983938*^9}, 
   3.563542493723468*^9, {3.563542586887805*^9, 3.563542628749124*^9}, {
   3.563543087042822*^9, 3.563543090748076*^9}, {3.563543374436173*^9, 
   3.563543422198125*^9}, {3.5644021704266863`*^9, 3.564402172967256*^9}, {
   3.564405767539486*^9, 3.564405768052952*^9}, {3.564413235949687*^9, 
   3.564413236853958*^9}, {3.564682427610278*^9, 3.564682436448017*^9}, {
   3.5646824745485983`*^9, 3.564682480322901*^9}, {3.5648343000988703`*^9, 
   3.56483430413787*^9}, {3.564850105889791*^9, 3.56485010797779*^9}, {
   3.566426830196505*^9, 3.566426831159525*^9}, 3.570327537517303*^9, {
   3.570327712775303*^9, 3.570327714117038*^9}, {3.5703768187944307`*^9, 
   3.570376821241983*^9}, {3.5715755872881193`*^9, 3.571575636954029*^9}, {
   3.5885027348150806`*^9, 3.588502735071302*^9}, {3.588502813821426*^9, 
   3.588502814028502*^9}, {3.5885032878929996`*^9, 3.588503339433796*^9}, {
   3.588503406456326*^9, 3.588503406639093*^9}, {3.588503465987542*^9, 
   3.588503471923272*^9}, {3.5922255614844513`*^9, 3.592225562129325*^9}, {
   3.5927643164655037`*^9, 3.592764317763259*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MEH", "[", 
  RowBox[{"0.01", "*", "h"}], "]"}]], "Input",
 CellChangeTimes->{{3.592152851087934*^9, 3.592152852570692*^9}, {
  3.592152889472789*^9, 3.592152895286504*^9}}],

Cell[BoxData["1275.1632126042107`"], "Output",
 CellChangeTimes->{3.592152895936891*^9, 3.592223409910748*^9, 
  3.592772110419016*^9, 3.592772234865951*^9, 3.5929147545551453`*^9, 
  3.5931914766945868`*^9, 3.593385026671564*^9, 3.593387544136036*^9, 
  3.593443816729603*^9, 3.593443973908484*^9, 3.593445028950808*^9, 
  3.593446173308908*^9, 3.593446638065283*^9, 3.593469399136197*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LogLogPlot", "[", 
  RowBox[{
   RowBox[{
    SuperscriptBox[
     RowBox[{"MEH", "[", 
      RowBox[{"k", "*", "h"}], "]"}], "2"], "*", 
    RowBox[{"Pvar", "[", "k", "]"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"k", ",", " ", "0.001", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.592223642355777*^9, 3.592223770239456*^9}, {
   3.5922238479599323`*^9, 3.5922238482505207`*^9}, {3.592223900806583*^9, 
   3.592223902446669*^9}, 3.592223973952518*^9}],

Cell[BoxData[
 GraphicsBox[{},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{-6.907755278982137, -0.6931471805599453},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& )},
  FrameTicks->{{{{0., 
       FormBox[
        TagBox[
         InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {2.302585092994046, 
       FormBox[
        TagBox[
         InterpretationBox["\"10.0\"", 10., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"5.0\"", 5., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {3.912023005428146, 
       FormBox[
        TagBox[
         InterpretationBox["\"50.0\"", 50., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"2.0\"", 2., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {2.995732273553991, 
       FormBox[
        TagBox[
         InterpretationBox["\"20.0\"", 20., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {1.0986122886681098`, 
       FormBox[
        TagBox[
         InterpretationBox["\"3.0\"", 3., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {3.4011973816621555`, 
       FormBox[
        TagBox[
         InterpretationBox["\"30.0\"", 30., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0.4054651081081644, 
       FormBox[
        TagBox[
         InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {2.70805020110221, 
       FormBox[
        TagBox[
         InterpretationBox["\"15.0\"", 15., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {1.9459101490553132`, 
       FormBox[
        TagBox[
         InterpretationBox["\"7.0\"", 7., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {4.248495242049359, 
       FormBox[
        TagBox[
         InterpretationBox["\"70.0\"", 70., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0.09531017980432493, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.1823215567939548, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.26236426446749106`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.336472236621213, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.47000362924573563`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.5306282510621705, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.5877866649021191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6418538861723948, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.3978952727983707`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.4849066497880004`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.5649493574615367`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.6390573296152584`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.772588722239781, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.833213344056216, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.8903717578961645`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.9444389791664403`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{0., 
       FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm]}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm]}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm]}, {0.4054651081081644, 
       FormBox["\"\"", TraditionalForm]}, {2.70805020110221, 
       FormBox["\"\"", TraditionalForm]}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm]}, {4.248495242049359, 
       FormBox["\"\"", TraditionalForm]}, {0.09531017980432493, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.1823215567939548, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.26236426446749106`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.336472236621213, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.47000362924573563`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.5306282510621705, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.5877866649021191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6418538861723948, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.3978952727983707`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.4849066497880004`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.5649493574615367`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.6390573296152584`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.772588722239781, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.833213344056216, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.8903717578961645`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.9444389791664403`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {{{-6.907755278982137, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.001\"", 0.001, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-5.298317366548036, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.005\"", 0.005, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-4.605170185988092, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.995732273553991, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.050\"", 0.05, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.302585092994046, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.500\"", 0.5, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0., 
       FormBox[
        TagBox[
         InterpretationBox["\"1.000\"", 1., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"5.000\"", 5., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.809142990314028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.521460917862246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.115995809754082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.961845129926823, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.8283137373023015`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.710530701645918, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.6592600369327783`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.4079456086518722`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.35667494393873245`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782628`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-6.907755278982137, 
       FormBox["\"\"", TraditionalForm]}, {-5.298317366548036, 
       FormBox["\"\"", TraditionalForm]}, {-4.605170185988092, 
       FormBox["\"\"", TraditionalForm]}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm]}, {-2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {0., 
       FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {-6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.809142990314028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.521460917862246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.115995809754082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.961845129926823, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.8283137373023015`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.710530701645918, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.6592600369327783`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.4079456086518722`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.35667494393873245`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782628`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}},
  GridLines->{None, None},
  Method->{},
  PlotRange->{{-6.907755278982137, 0}, {-0.6931471805599453, 
    0.6931471805599453}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{{{-6.907755278982137, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.001\"", 0.001, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-5.298317366548036, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.005\"", 0.005, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-4.605170185988092, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.995732273553991, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.050\"", 0.05, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.302585092994046, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.500\"", 0.5, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0., 
      FormBox[
       TagBox[
        InterpretationBox["\"1.000\"", 1., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"5.000\"", 5., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-6.214608098422191, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.809142990314028, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.521460917862246, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.115995809754082, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.961845129926823, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.8283137373023015`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.710530701645918, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.912023005428146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.506557897319982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.2188758248682006`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.8134107167600364`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.6592600369327783`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.5257286443082556`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.4079456086518722`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.6094379124341003`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.203972804325936, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.916290731874155, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.5108256237659907, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.35667494393873245`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.2231435513142097, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.10536051565782628`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.6931471805599453, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.0986122886681098`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.3862943611198906`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}, {{0., 
      FormBox[
       TagBox[
        InterpretationBox["\"1.0\"", 1., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {2.302585092994046, 
      FormBox[
       TagBox[
        InterpretationBox["\"10.0\"", 10., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"5.0\"", 5., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {3.912023005428146, 
      FormBox[
       TagBox[
        InterpretationBox["\"50.0\"", 50., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"2.0\"", 2., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {2.995732273553991, 
      FormBox[
       TagBox[
        InterpretationBox["\"20.0\"", 20., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {1.0986122886681098`, 
      FormBox[
       TagBox[
        InterpretationBox["\"3.0\"", 3., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {3.4011973816621555`, 
      FormBox[
       TagBox[
        InterpretationBox["\"30.0\"", 30., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0.4054651081081644, 
      FormBox[
       TagBox[
        InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {2.70805020110221, 
      FormBox[
       TagBox[
        InterpretationBox["\"15.0\"", 15., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {1.9459101490553132`, 
      FormBox[
       TagBox[
        InterpretationBox["\"7.0\"", 7., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {4.248495242049359, 
      FormBox[
       TagBox[
        InterpretationBox["\"70.0\"", 70., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0.09531017980432493, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.1823215567939548, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.26236426446749106`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.336472236621213, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.47000362924573563`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.5306282510621705, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.5877866649021191, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.6418538861723948, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.3862943611198906`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.791759469228055, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.0794415416798357`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.1972245773362196`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.3978952727983707`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.4849066497880004`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.5649493574615367`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.6390573296152584`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.772588722239781, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.833213344056216, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.8903717578961645`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.9444389791664403`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.6888794541139363`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.0943445622221, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{{3.592223720814096*^9, 3.5922237762299767`*^9}, 
   3.5922238545593777`*^9, 3.5922239074637327`*^9, 3.592223979082264*^9, 
   3.592772113604527*^9, 3.5927722376036997`*^9, 3.5929147573631077`*^9, 
   3.5931914796729517`*^9, 3.593385029277939*^9, 3.593387546097588*^9, 
   3.59344382090629*^9, 3.593443979026782*^9, 3.593445032682391*^9, 
   3.593446176234935*^9, 3.5934466410575933`*^9, 3.593469401694948*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"TopHat", "[", 
    RowBox[{"k", ",", " ", "RR"}], "]"}], ",", " ", "RR"}], "]"}]], "Input",
 CellChangeTimes->{{3.592869572639958*^9, 3.5928695813045273`*^9}}],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["TopHat", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"0", ",", "1"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"k", ",", "RR"}], "]"}]], "Output",
 CellChangeTimes->{3.592869581704977*^9, 3.592914757432687*^9, 
  3.5931914797866697`*^9, 3.5933850293324757`*^9, 3.5933875461475677`*^9, 
  3.593443821359991*^9, 3.5934439797877502`*^9, 3.593445033132846*^9, 
  3.593446176460153*^9, 3.593446641772398*^9, 3.593469401767643*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Setup integral definitions", "Subsection",
 CellChangeTimes->{{3.59344605007073*^9, 3.59344605264707*^9}, {
  3.5934461558923893`*^9, 3.5934461600687933`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"k0", "=", 
    RowBox[{"0.002", "/", "h"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"In", " ", 
    RowBox[{"h", "/", "Mpc"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ns", "=", "0.96"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Lx", "=", "2400"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"In", " ", 
    RowBox[{"Mpc", "/", "h"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Np", "=", 
   SuperscriptBox["1024", "3"]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Mp", " ", "=", " ", 
    RowBox[{"9.648", " ", 
     SuperscriptBox["10", "11"]}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"mass", " ", "of", " ", "a", " ", "particle", " ", "in", " ", 
    SuperscriptBox["h", 
     RowBox[{"-", "1"}]], 
    SubscriptBox["M", "sun"]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Rho]bar", " ", "=", " ", 
    FractionBox[
     RowBox[{"Np", "*", "Mp"}], 
     SuperscriptBox[
      RowBox[{"(", "Lx", ")"}], "3"]]}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{"in", " ", 
    SuperscriptBox["h", "2"], 
    RowBox[{
     SubscriptBox["M", "sun"], "/", 
     SuperscriptBox["Mpc", "3"]}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Mass", "[", "R_", "]"}], ":=", " ", 
    RowBox[{
     FractionBox["4", "3"], "\[Pi]", " ", 
     SuperscriptBox["R", "3"], " ", "*", "\[Rho]bar"}]}], ";"}], "   ", 
  RowBox[{"(*", " ", 
   RowBox[{"in", " ", 
    SuperscriptBox["h", 
     RowBox[{"-", "1"}]], 
    SubscriptBox["M", "sun"]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Aphi", "=", 
   RowBox[{"8.23", " ", 
    SuperscriptBox["10", 
     RowBox[{"-", "10"}]]}]}], ";", 
  RowBox[{"Aphi", "=", 
   SuperscriptBox["10", 
    RowBox[{"-", "5"}]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"kmin", "=", 
   RowBox[{"2", "*", 
    RowBox[{"\[Pi]", "/", "Lx"}]}]}], ";", " ", 
  RowBox[{"kmax", "=", 
   RowBox[{"1024", "*", "kmin"}]}], ";", " ", 
  RowBox[{"(*", " ", 
   RowBox[{"in", " ", 
    RowBox[{"h", "/", "Mpc"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Pvar", "[", "k_", "]"}], ":=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"k", ">=", "kmin"}], ",", " ", 
     RowBox[{"Aphi", "*", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"k", "/", "k0"}], ")"}], 
        RowBox[{"ns", "-", "1"}]], "/", 
       SuperscriptBox["k", "3"]}]}], ",", " ", "0."}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TopHat", "[", 
    RowBox[{"k_", ",", "R_"}], "]"}], ":=", 
   FractionBox[
    RowBox[{
     RowBox[{"3", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"k", " ", "R"}], "]"}]}], "-", 
     RowBox[{"3", 
      RowBox[{"(", 
       RowBox[{"k", " ", "R"}], ")"}], " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"k", " ", "R"}], "]"}]}]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"k", " ", "R"}], ")"}], "3"]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TopHatD", "[", 
    RowBox[{"k_", ",", "R_"}], "]"}], ":=", 
   RowBox[{
    FractionBox[
     RowBox[{"3", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"k", " ", "R"}], "]"}]}], 
     RowBox[{"k", " ", 
      SuperscriptBox["R", "2"]}]], "-", 
    FractionBox[
     RowBox[{"3", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "3"}], " ", "k", " ", "R", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"k", " ", "R"}], "]"}]}], "+", 
        RowBox[{"3", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"k", " ", "R"}], "]"}]}]}], ")"}]}], 
     RowBox[{
      SuperscriptBox["k", "3"], " ", 
      SuperscriptBox["R", "4"]}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Alpha]", "[", "k_", "]"}], ":=", 
   RowBox[{"MEH", "[", 
    RowBox[{"k", "*", "h"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Alpha]M", "[", 
    RowBox[{"k_", ",", "R_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"MEH", "[", 
     RowBox[{"k", "*", "h"}], "]"}], "*", 
    RowBox[{"TopHat", "[", 
     RowBox[{"k", ",", "R"}], "]"}]}]}], ";", " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"MEH", "[", "k", "]"}], " ", "takes", " ", "k", " ", "in", " ", 
    SuperscriptBox["Mpc", 
     RowBox[{"-", "1"}]]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"CosTheta", "[", 
    RowBox[{"\[Phi]1_", ",", "\[Phi]2_", ",", "\[Mu]1_", ",", "\[Mu]2_"}], 
    "]"}], ":=", 
   RowBox[{
    RowBox[{"\[Mu]1", "*", "\[Mu]2"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", "\[Phi]1", "]"}], "*", 
        RowBox[{"Cos", "[", "\[Phi]2", "]"}]}], "+", 
       RowBox[{
        RowBox[{"Sin", "[", "\[Phi]1", "]"}], "*", 
        RowBox[{"Sin", "[", "\[Phi]2", "]"}]}]}], ")"}], "*", 
     RowBox[{"Sqrt", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"\[Mu]1", "^", "2"}]}], ")"}], "*", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"\[Mu]2", "^", "2"}]}], ")"}]}], "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"I32Value", "[", 
    RowBox[{
    "k_", ",", "R_", ",", " ", "q2_", ",", " ", "\[Mu]2_", ",", " ", 
     "\[Phi]2_", ",", " ", "q1_", ",", " ", "\[Mu]1_", ",", " ", "\[Phi]1_"}],
     "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["q2", "2"], "*", 
       RowBox[{"\[Alpha]M", "[", 
        RowBox[{"q2", ",", "R"}], "]"}], "*", 
       RowBox[{"\[Alpha]M", "[", 
        RowBox[{
         RowBox[{"Sqrt", "[", 
          RowBox[{
           SuperscriptBox["q2", "2"], "+", 
           SuperscriptBox["k", "2"], "+", 
           RowBox[{"2", "*", "q2", "*", "k", "*", "\[Mu]2"}]}], "]"}], ",", 
         "R"}], "]"}], "*", 
       SuperscriptBox["q1", "2"], "*", 
       RowBox[{"Pvar", "[", "q1", "]"}], 
       RowBox[{"Pvar", "[", 
        RowBox[{"Sqrt", "[", 
         RowBox[{
          SuperscriptBox["q2", "2"], "+", 
          SuperscriptBox["q1", "2"], "-", 
          RowBox[{"2", "*", "q2", "*", "q1", "*", 
           RowBox[{"CosTheta", "[", 
            RowBox[{
            "\[Phi]1", ",", " ", "\[Phi]2", ",", " ", "\[Mu]1", ",", " ", 
             "\[Mu]2"}], "]"}]}]}], "]"}], "]"}], "*", 
       RowBox[{"(", 
        RowBox[{"Pvar", "[", 
         RowBox[{"Sqrt", "[", 
          RowBox[{
           SuperscriptBox["k", "2"], "+", 
           SuperscriptBox["q1", "2"], "+", 
           RowBox[{"2", "*", "k", "*", "q1", "*", "\[Mu]1"}]}], "]"}], "]"}], 
        ")"}]}], ")"}], "/", "8."}], "/", 
    SuperscriptBox["\[Pi]", "2"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"I31Value", "[", 
    RowBox[{"k_", ",", "R_", ",", "q1_", ",", "\[Mu]1_"}], "]"}], ":=", 
   RowBox[{
    SuperscriptBox["q1", "2"], "*", 
    RowBox[{"\[Alpha]M", "[", 
     RowBox[{"q1", ",", "R"}], "]"}], "*", 
    RowBox[{"\[Alpha]M", "[", 
     RowBox[{
      RowBox[{"Sqrt", "[", 
       RowBox[{
        SuperscriptBox["q1", "2"], "+", 
        SuperscriptBox["k", "2"], "+", 
        RowBox[{"2", "*", "q1", "*", "k", "*", "\[Mu]1"}]}], "]"}], ",", 
      "R"}], "]"}], "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Pvar", "[", "q1", "]"}], "*", 
         RowBox[{"Pvar", "[", 
          RowBox[{"Sqrt", "[", 
           RowBox[{
            SuperscriptBox["q1", "2"], "+", 
            SuperscriptBox["k", "2"], "+", 
            RowBox[{"2", "*", "q1", "*", "k", "*", "\[Mu]1"}]}], "]"}], 
          "]"}]}], ")"}], "+", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Pvar", "[", 
          RowBox[{"Sqrt", "[", 
           RowBox[{
            SuperscriptBox["q1", "2"], "+", 
            SuperscriptBox["k", "2"], "+", 
            RowBox[{"2", "*", "q1", "*", "k", "*", "\[Mu]1"}]}], "]"}], "]"}],
          "*", 
         RowBox[{"Pvar", "[", "k", "]"}]}], ")"}], "+", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Pvar", "[", "k", "]"}], "*", 
         RowBox[{"Pvar", "[", "q1", "]"}]}], ")"}]}], ")"}], "/", "4.0"}]}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ISigSq", "[", 
     RowBox[{"k_", ",", "R_"}], "]"}], ":=", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[Alpha]M", "[", 
       RowBox[{"k", ",", "R"}], "]"}], "2"], "*", 
     RowBox[{"Pvar", "[", "k", "]"}], "*", "k", "*", "k"}]}], ";", " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "for", " ", "SigmaMSq", " ", "computation", " ", "to", " ", "get", " ", 
      "A", " ", "such", " ", "that", " ", 
      SubscriptBox["\[Sigma]", "8"]}], "=", "0.8"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
      RowBox[{",", " ", 
       RowBox[{"{", 
        RowBox[{"q2", ",", " ", "kmin", ",", " ", "kmax"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"\[Mu]2", ",", " ", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"\[Phi]2", ",", " ", "0", ",", " ", 
         RowBox[{"2", "*", "\[Pi]"}]}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"q1", ",", " ", "kmin", ",", " ", "kmax"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"\[Mu]1", ",", " ", 
         RowBox[{"-", "1"}], ",", " ", "1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"\[Phi]1", ",", " ", "0", ",", " ", 
         RowBox[{"2", "*", "\[Pi]"}]}], "}"}]}], "]"}], ";"}], "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"I31DLog", "[", 
     RowBox[{"k_", ",", "R_", ",", "q1_", ",", "\[Mu]1_"}], "]"}], ":=", 
    RowBox[{
     SuperscriptBox["q1", "2"], "*", 
     RowBox[{"\[Alpha]", "[", "q1", "]"}], "*", 
     RowBox[{"\[Alpha]", "[", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        SuperscriptBox["q1", "2"], "+", 
        SuperscriptBox["k", "2"], "+", 
        RowBox[{"2", "*", "q1", "*", "k", "*", "\[Mu]1"}]}], "]"}], "]"}], 
     "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"TopHatD", "[", 
         RowBox[{"q1", ",", "R"}], "]"}], "*", 
        RowBox[{"TopHat", "[", 
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{
            SuperscriptBox["q1", "2"], "+", 
            SuperscriptBox["k", "2"], "+", 
            RowBox[{"2", "*", "q1", "*", "k", "*", "\[Mu]1"}]}], "]"}], ",", 
          "R"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"TopHat", "[", 
         RowBox[{"q1", ",", "R"}], "]"}], "*", 
        RowBox[{"TopHatD", "[", 
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{
            SuperscriptBox["q1", "2"], "+", 
            SuperscriptBox["k", "2"], "+", 
            RowBox[{"2", "*", "q1", "*", "k", "*", "\[Mu]1"}]}], "]"}], ",", 
          "R"}], "]"}]}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Pvar", "[", "q1", "]"}], "*", 
          RowBox[{"Pvar", "[", 
           RowBox[{"Sqrt", "[", 
            RowBox[{
             SuperscriptBox["q1", "2"], "+", 
             SuperscriptBox["k", "2"], "+", 
             RowBox[{"2", "*", "q1", "*", "k", "*", "\[Mu]1"}]}], "]"}], 
           "]"}]}], ")"}], "+", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Pvar", "[", 
           RowBox[{"Sqrt", "[", 
            RowBox[{
             SuperscriptBox["q1", "2"], "+", 
             SuperscriptBox["k", "2"], "+", 
             RowBox[{"2", "*", "q1", "*", "k", "*", "\[Mu]1"}]}], "]"}], 
           "]"}], "*", 
          RowBox[{"Pvar", "[", "k", "]"}]}], ")"}], "+", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Pvar", "[", "k", "]"}], "*", 
          RowBox[{"Pvar", "[", "q1", "]"}]}], ")"}]}], ")"}], "/", 
      "4.0"}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"I32DLog", "[", 
    RowBox[{
    "k_", ",", "R_", ",", " ", "q2_", ",", " ", "\[Mu]2_", ",", " ", 
     "\[Phi]2_", ",", " ", "q1_", ",", " ", "\[Mu]1_", ",", " ", "\[Phi]1_"}],
     "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["q2", "2"], "*", 
       RowBox[{"\[Alpha]", "[", "q2", "]"}], "*", 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"Sqrt", "[", 
         RowBox[{
          SuperscriptBox["q2", "2"], "+", 
          SuperscriptBox["k", "2"], "+", 
          RowBox[{"2", "*", "q2", "*", "k", "*", "\[Mu]2"}]}], "]"}], "]"}], 
       "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"TopHatD", "[", 
           RowBox[{"q2", ",", "R"}], "]"}], "*", 
          RowBox[{"TopHat", "[", 
           RowBox[{
            RowBox[{"Sqrt", "[", 
             RowBox[{
              SuperscriptBox["q2", "2"], "+", 
              SuperscriptBox["k", "2"], "+", 
              RowBox[{"2", "*", "q2", "*", "k", "*", "\[Mu]2"}]}], "]"}], ",",
             "R"}], "]"}]}], "+", 
         RowBox[{
          RowBox[{"TopHat", "[", 
           RowBox[{"q2", ",", "R"}], "]"}], "*", 
          RowBox[{"TopHatD", "[", 
           RowBox[{
            RowBox[{"Sqrt", "[", 
             RowBox[{
              SuperscriptBox["q2", "2"], "+", 
              SuperscriptBox["k", "2"], "+", 
              RowBox[{"2", "*", "q2", "*", "k", "*", "\[Mu]2"}]}], "]"}], ",",
             "R"}], "]"}]}]}], ")"}], "*", 
       SuperscriptBox["q1", "2"], "*", 
       RowBox[{"Pvar", "[", "q1", "]"}], 
       RowBox[{"Pvar", "[", 
        RowBox[{"Sqrt", "[", 
         RowBox[{
          SuperscriptBox["q2", "2"], "+", 
          SuperscriptBox["q1", "2"], "-", 
          RowBox[{"2", "*", "q2", "*", "q1", "*", 
           RowBox[{"CosTheta", "[", 
            RowBox[{
            "\[Phi]1", ",", " ", "\[Phi]2", ",", " ", "\[Mu]1", ",", " ", 
             "\[Mu]2"}], "]"}]}]}], "]"}], "]"}], "*", 
       RowBox[{"(", 
        RowBox[{"Pvar", "[", 
         RowBox[{"Sqrt", "[", 
          RowBox[{
           SuperscriptBox["k", "2"], "+", 
           SuperscriptBox["q1", "2"], "+", 
           RowBox[{"2", "*", "k", "*", "q1", "*", "\[Mu]1"}]}], "]"}], "]"}], 
        ")"}]}], ")"}], "/", "8."}], "/", 
    SuperscriptBox["\[Pi]", "2"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"I42Value", "[", 
    RowBox[{
    "k_", ",", "R_", ",", " ", "q2_", ",", " ", "\[Mu]2_", ",", " ", 
     "\[Phi]2_", ",", " ", "q1_", ",", " ", "\[Mu]1_", ",", " ", "\[Phi]1_", 
     ",", " ", "p_", ",", " ", "\[Mu]_", ",", " ", "\[Phi]_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["q1", "2"], "*", 
       SuperscriptBox["q2", "2"], "*", 
       SuperscriptBox["p", "2"], "*", 
       SuperscriptBox[
        RowBox[{"\[Alpha]M", "[", 
         RowBox[{"q1", ",", "R"}], "]"}], "2"], "*", 
       SuperscriptBox[
        RowBox[{"\[Alpha]M", "[", 
         RowBox[{"q2", ",", "R"}], "]"}], "2"], "*", 
       RowBox[{"Pvar", "[", "p", "]"}], "*", 
       RowBox[{"Pvar", "[", 
        RowBox[{"Sqrt", "[", 
         RowBox[{
          SuperscriptBox["q1", "2"], "-", 
          RowBox[{"2", "*", "q1", "*", "p", "*", 
           RowBox[{"CosTheta", "[", 
            RowBox[{"\[Phi]1", ",", "\[Phi]", ",", "\[Mu]1", ",", "\[Mu]"}], 
            "]"}]}], "+", 
          SuperscriptBox["p", "2"]}], "]"}], "]"}], "*", 
       RowBox[{"Pvar", "[", 
        RowBox[{"Sqrt", "[", 
         RowBox[{
          SuperscriptBox["k", "2"], "+", 
          SuperscriptBox["q1", "2"], "+", 
          SuperscriptBox["p", "2"], "-", 
          RowBox[{"2", "*", "k", "*", "q1", "*", "\[Mu]1"}], "+", 
          RowBox[{"2", "*", "k", "*", "p", "*", "\[Mu]"}], "-", 
          RowBox[{"2", "*", "q1", "*", "p", "*", 
           RowBox[{"CosTheta", "[", 
            RowBox[{"\[Phi]1", ",", "\[Phi]", ",", "\[Mu]1", ",", "\[Mu]"}], 
            "]"}]}]}], "]"}], "]"}], "*", 
       RowBox[{"Pvar", "[", 
        RowBox[{"Sqrt", "[", 
         RowBox[{
          SuperscriptBox["p", "2"], "+", 
          SuperscriptBox["q1", "2"], "+", 
          SuperscriptBox["q2", "2"], "-", 
          RowBox[{"2", "*", "p", "*", "q1", "*", 
           RowBox[{"CosTheta", "[", 
            RowBox[{"\[Phi]", ",", "\[Phi]1", ",", "\[Mu]", ",", "\[Mu]1"}], 
            "]"}]}], "-", 
          RowBox[{"2", "*", "p", "*", "q2", "*", 
           RowBox[{"CosTheta", "[", 
            RowBox[{"\[Phi]", ",", "\[Phi]2", ",", "\[Mu]", ",", "\[Mu]2"}], 
            "]"}]}], "+", 
          RowBox[{"2", "*", "q1", "*", "q2", "*", 
           RowBox[{"CosTheta", "[", 
            RowBox[{"\[Phi]1", ",", "\[Phi]2", ",", "\[Mu]1", ",", "\[Mu]2"}],
             "]"}]}]}], "]"}], "]"}]}], ")"}], "/", "64."}], "/", 
    SuperscriptBox["\[Pi]", "3"]}]}], ";"}], "\[IndentingNewLine]"}], "Input",\

 CellChangeTimes->{{3.5920663919167843`*^9, 3.592066396532892*^9}, {
   3.592066458555657*^9, 3.592066805894929*^9}, 3.592067410093257*^9, {
   3.592067448640141*^9, 3.592067753453969*^9}, {3.592067798100644*^9, 
   3.5920679169902067`*^9}, {3.592068001218309*^9, 3.592068040062264*^9}, 
   3.592069337368183*^9, {3.59206945968678*^9, 3.592069460103941*^9}, {
   3.5920695056602287`*^9, 3.5920695595299063`*^9}, {3.592069608487071*^9, 
   3.592069751026957*^9}, {3.592150839910246*^9, 3.59215084780333*^9}, {
   3.592153537485997*^9, 3.592153566789893*^9}, {3.592223259730954*^9, 
   3.592223283894908*^9}, {3.5922255267657967`*^9, 3.5922255284008102`*^9}, {
   3.5927612547253933`*^9, 3.592761335605227*^9}, {3.592761494875949*^9, 
   3.592761500818406*^9}, {3.592762052046629*^9, 3.592762121015386*^9}, {
   3.5927622925193157`*^9, 3.592762294594532*^9}, {3.592763655449903*^9, 
   3.5927638177349157`*^9}, {3.592764111914147*^9, 3.592764143295429*^9}, {
   3.5927710299524918`*^9, 3.592771045323942*^9}, {3.592821990166234*^9, 
   3.592821999012002*^9}, {3.59282217043034*^9, 3.592822174090159*^9}, 
   3.59282628851263*^9, {3.592827202419595*^9, 3.5928272029499607`*^9}, {
   3.592827556201213*^9, 3.5928275568993597`*^9}, {3.59282762194914*^9, 
   3.592827650945356*^9}, {3.592850891018014*^9, 3.592850918549065*^9}, {
   3.592851016030954*^9, 3.5928510275058603`*^9}, {3.592851057811228*^9, 
   3.592851118888485*^9}, 3.5928514483024893`*^9, {3.592869530552868*^9, 
   3.592869554335053*^9}, {3.5928695886175547`*^9, 3.592869708033636*^9}, {
   3.592871608495091*^9, 3.5928716798080177`*^9}, {3.593191589501388*^9, 
   3.593191635049176*^9}, {3.593191724405734*^9, 3.593191742744581*^9}, {
   3.593191837638856*^9, 3.5931919100235767`*^9}, {3.593192155329774*^9, 
   3.593192156225503*^9}, {3.593192232513816*^9, 3.593192262598289*^9}, {
   3.593192295004855*^9, 3.593192419986742*^9}, {3.593192490670388*^9, 
   3.593192493915887*^9}, {3.593192534582417*^9, 3.5931925356987762`*^9}, {
   3.59319856535787*^9, 3.593198582837366*^9}, {3.5932197161334267`*^9, 
   3.5932197236399603`*^9}, 3.593276882937324*^9, {3.593387291530457*^9, 
   3.5933872998572598`*^9}, {3.593387330264431*^9, 3.593387340145187*^9}, {
   3.5934710587910433`*^9, 3.593471061909923*^9}, {3.5935158998259363`*^9, 
   3.593515910618945*^9}, {3.593516143028067*^9, 3.593516143703466*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Start the import of library", "Subsection",
 CellChangeTimes->{{3.593446023119515*^9, 3.593446038368087*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Install", "[", "\"\<Suave\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Install", "[", "\"\<Vegas\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Install", "[", "\"\<Divonne\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ParallelEvaluate", "[", 
   RowBox[{"Install", "[", "\"\<Suave\>\"", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Install", "[", "\"\<Cuhre\>\"", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5927596892664843`*^9, 3.5927597078205957`*^9}, {
  3.592769356182355*^9, 3.592769381989523*^9}, {3.593445566992251*^9, 
  3.5934456196034946`*^9}, {3.593448309028468*^9, 3.593448327143906*^9}, {
  3.5934696444623213`*^9, 3.593469659743586*^9}}],

Cell[BoxData[
 RowBox[{"LinkObject", "[", 
  RowBox[{"\<\"/home/sza5154/Suave\"\>", ",", "8341", ",", "13"}], 
  "]"}]], "Output",
 CellChangeTimes->{{3.593523343446693*^9, 3.593523345368808*^9}, 
   3.59354264829228*^9, {3.593860448278068*^9, 3.593860450046865*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"R", "=", " ", "7.6835"}], ";", " ", 
  RowBox[{"NRS", "=", "10"}], ";", " ", 
  RowBox[{"NN", "=", "100"}], ";"}]], "Input",
 CellChangeTimes->{{3.592771085069105*^9, 3.5927710853591337`*^9}, {
   3.592771129926832*^9, 3.592771154746641*^9}, {3.592771738804964*^9, 
   3.592771740716847*^9}, {3.592773562041222*^9, 3.5927735624464083`*^9}, {
   3.5928275067837563`*^9, 3.592827509507473*^9}, 3.5934443537436857`*^9, {
   3.593448531119543*^9, 3.5934485314273376`*^9}, {3.593469476704803*^9, 
   3.593469477663097*^9}, {3.593516432034074*^9, 3.593516432297584*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"s8", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Suave", "[", 
     RowBox[{
      RowBox[{"ISigSq", "[", 
       RowBox[{"k", ",", "8."}], "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"k", ",", " ", "kmin", ",", " ", "kmax"}], "}"}], ",", " ", 
      RowBox[{"Verbose", "\[Rule]", "0"}]}], "]"}], ",", 
    RowBox[{"Vegas", "[", 
     RowBox[{
      RowBox[{"ISigSq", "[", 
       RowBox[{"k", ",", "8."}], "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"k", ",", " ", "kmin", ",", " ", "kmax"}], "}"}], ",", " ", 
      RowBox[{"Verbose", "\[Rule]", "0"}]}], "]"}], ",", " ", 
    RowBox[{"Divonne", "[", 
     RowBox[{
      RowBox[{"ISigSq", "[", 
       RowBox[{"k", ",", "8."}], "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"k", ",", " ", "kmin", ",", " ", "kmax"}], "}"}], ",", " ", 
      RowBox[{"Verbose", "\[Rule]", "0"}]}], "]"}], ",", " ", 
    RowBox[{"Cuhre", "[", 
     RowBox[{
      RowBox[{"ISigSq", "[", 
       RowBox[{"k", ",", "8."}], "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"k", ",", " ", "kmin", ",", " ", "kmax"}], "}"}], ",", " ", 
      RowBox[{"Verbose", "\[Rule]", "0"}]}], "]"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.5928216804437513`*^9, 3.592821715570931*^9}, {
  3.5928217541675053`*^9, 3.5928218545935717`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Suave", "::", "success"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Needed \[NoBreak]\\!\\(10000\\)\[NoBreak] function \
evaluations on \[NoBreak]\\!\\(10\\)\[NoBreak] subregions.\"\>"}]], "Message",\
 "MSG",
 CellChangeTimes->{
  3.592821716967567*^9, {3.592821768939665*^9, 3.592821814181319*^9}, {
   3.592821856031817*^9, 3.592821883629813*^9}, 3.592822038952778*^9, 
   3.592822185363241*^9, 3.592827270492036*^9, 3.593385310152178*^9, 
   3.593387794428018*^9, 3.593446716524247*^9, 3.593469535781733*^9, 
   3.5934696632303133`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Vegas", "::", "success"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Needed \[NoBreak]\\!\\(27000\\)\[NoBreak] function \
evaluations.\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.592821716967567*^9, {3.592821768939665*^9, 3.592821814181319*^9}, {
   3.592821856031817*^9, 3.592821883629813*^9}, 3.592822038952778*^9, 
   3.592822185363241*^9, 3.592827270492036*^9, 3.593385310152178*^9, 
   3.593387794428018*^9, 3.593446716524247*^9, 3.593469535781733*^9, 
   3.593469665460923*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Divonne", "::", "baddim"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Cannot integrate in \[NoBreak]\\!\\(1\\)\[NoBreak] \
dimensions.\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.592821716967567*^9, {3.592821768939665*^9, 3.592821814181319*^9}, {
   3.592821856031817*^9, 3.592821883629813*^9}, 3.592822038952778*^9, 
   3.592822185363241*^9, 3.592827270492036*^9, 3.593385310152178*^9, 
   3.593387794428018*^9, 3.593446716524247*^9, 3.593469535781733*^9, 
   3.5934696655678368`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Cuhre", "::", "baddim"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Cannot integrate in \[NoBreak]\\!\\(1\\)\[NoBreak] \
dimensions.\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.592821716967567*^9, {3.592821768939665*^9, 3.592821814181319*^9}, {
   3.592821856031817*^9, 3.592821883629813*^9}, 3.592822038952778*^9, 
   3.592822185363241*^9, 3.592827270492036*^9, 3.593385310152178*^9, 
   3.593387794428018*^9, 3.593446716524247*^9, 3.593469535781733*^9, 
   3.593469665672423*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "7.776228260730613`*^8", ",", "736859.5046232337`", ",", 
      "0.5771531696656633`"}], "}"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "7.777740004531363`*^8", ",", "723947.9463480129`", ",", 
      "0.0002657882108363705`"}], "}"}], "}"}], ",", "$Failed", ",", 
   "$Failed"}], "}"}]], "Output",
 CellChangeTimes->{{3.592821699845924*^9, 3.592821716970093*^9}, {
   3.592821771854151*^9, 3.592821816966223*^9}, {3.592821859171577*^9, 
   3.592821886763913*^9}, 3.592822042029595*^9, 3.592822188471784*^9, 
   3.59282727451416*^9, 3.5933853126167593`*^9, 3.5933877968528748`*^9, 
   3.59344671920201*^9, 3.5934695360409822`*^9, 3.593469665673601*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MP1", "=", "50000"}], ";", 
  RowBox[{"MP2", "=", "100000"}], ";", " ", 
  RowBox[{"MP3", "=", "50000000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"IntegratedValue31", "[", 
    RowBox[{"k_", ",", "R_"}], "]"}], ":=", 
   RowBox[{"Suave", "[", 
    RowBox[{
     RowBox[{"I31Value", "[", 
      RowBox[{"k", ",", "R", ",", "q1", ",", " ", "\[Mu]1"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"q1", ",", " ", "kmin", ",", " ", "kmax"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[Mu]1", ",", " ", 
       RowBox[{"-", "1."}], ",", "1."}], "}"}], ",", " ", 
     RowBox[{"Verbose", "\[Rule]", "0"}], ",", " ", 
     RowBox[{"MaxPoints", "\[Rule]", "MP1"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"IntegratedValue31D", "[", 
    RowBox[{"k_", ",", "R_"}], "]"}], ":=", 
   RowBox[{"Suave", "[", 
    RowBox[{
     RowBox[{"I31DLog", "[", 
      RowBox[{"k", ",", "R", ",", "q1", ",", " ", "\[Mu]1"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"q1", ",", " ", "kmin", ",", " ", "kmax"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[Mu]1", ",", " ", 
       RowBox[{"-", "1."}], ",", "1."}], "}"}], ",", " ", 
     RowBox[{"Verbose", "\[Rule]", "0"}], ",", " ", 
     RowBox[{"MaxPoints", "\[Rule]", "MP1"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"IntegratedValue32", "[", 
    RowBox[{"k_", ",", "R_"}], "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"Suave", "[", 
    RowBox[{
     RowBox[{"I32Value", "[", 
      RowBox[{
      "k", ",", "R", ",", "q2", ",", " ", "\[Mu]2", ",", " ", "\[Phi]2", ",", 
       " ", "q1", ",", " ", "\[Mu]1", ",", " ", "\[Phi]1"}], "]"}], ",", " ", 
     
     RowBox[{"{", 
      RowBox[{"q2", ",", " ", "kmin", ",", " ", "kmax"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[Mu]2", ",", " ", 
       RowBox[{"-", "1."}], ",", " ", "1."}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[Phi]2", ",", " ", "0.", ",", " ", 
       RowBox[{"2", "*", "\[Pi]"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"q1", ",", " ", "kmin", ",", " ", "kmax"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[Mu]1", ",", " ", 
       RowBox[{"-", "1."}], ",", " ", "1."}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[Phi]1", ",", " ", "0.", ",", " ", 
       RowBox[{"2", "*", "\[Pi]"}]}], "}"}], ",", " ", 
     RowBox[{"Verbose", "\[Rule]", "0"}], ",", " ", 
     RowBox[{"MaxPoints", "\[Rule]", "MP2"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"IntegratedValue32D", "[", 
    RowBox[{"k_", ",", "R_"}], "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"Suave", "[", 
    RowBox[{
     RowBox[{"I32DLog", "[", 
      RowBox[{
      "k", ",", "R", ",", "q2", ",", " ", "\[Mu]2", ",", " ", "\[Phi]2", ",", 
       " ", "q1", ",", " ", "\[Mu]1", ",", " ", "\[Phi]1"}], "]"}], ",", " ", 
     
     RowBox[{"{", 
      RowBox[{"q2", ",", " ", "kmin", ",", " ", "kmax"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[Mu]2", ",", " ", 
       RowBox[{"-", "1."}], ",", " ", "1."}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[Phi]2", ",", " ", "0.", ",", " ", 
       RowBox[{"2", "*", "\[Pi]"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"q1", ",", " ", "kmin", ",", " ", "kmax"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[Mu]1", ",", " ", 
       RowBox[{"-", "1."}], ",", " ", "1."}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[Phi]1", ",", " ", "0.", ",", " ", 
       RowBox[{"2", "*", "\[Pi]"}]}], "}"}], ",", " ", 
     RowBox[{"Verbose", "\[Rule]", "0"}], ",", " ", 
     RowBox[{"MaxPoints", "\[Rule]", "MP2"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"IntegratedValue42", "[", 
    RowBox[{"k_", ",", "R_"}], "]"}], ":=", 
   RowBox[{"Vegas", "[", 
    RowBox[{
     RowBox[{"I42Value", "[", 
      RowBox[{
      "k", ",", " ", "R", ",", "q2", ",", "\[Mu]2", ",", " ", "\[Phi]2", ",", 
       " ", "q1", ",", " ", "\[Mu]1", ",", " ", "\[Phi]1", ",", " ", "p", ",",
        " ", "\[Mu]", ",", " ", "\[Phi]"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"q2", ",", " ", "kmin", ",", " ", "kmax"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[Mu]2", ",", " ", 
       RowBox[{"-", "1."}], ",", "1."}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[Phi]2", ",", " ", "0.", ",", " ", 
       RowBox[{"2", "*", "\[Pi]"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"q1", ",", " ", "kmin", ",", " ", "kmax"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[Mu]1", ",", " ", 
       RowBox[{"-", "1."}], ",", " ", "1."}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[Phi]1", ",", " ", "0.", ",", " ", 
       RowBox[{"2", "*", "\[Pi]"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"p", ",", " ", "kmin", ",", " ", "kmax"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[Mu]", ",", " ", 
       RowBox[{"-", "1."}], ",", " ", "1."}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[Phi]", ",", " ", "0.", ",", " ", 
       RowBox[{"2", "*", "\[Pi]"}]}], "}"}], ",", " ", 
     RowBox[{"Verbose", "\[Rule]", "0"}], ",", " ", 
     RowBox[{"MaxPoints", "\[Rule]", "MP3"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5927713822587433`*^9, 3.592771428110345*^9}, {
   3.59277178643764*^9, 3.5927718002163486`*^9}, 3.592771835166047*^9, {
   3.592771922735601*^9, 3.592771965231061*^9}, 3.592772005506607*^9, {
   3.5927720564287577`*^9, 3.5927720575354567`*^9}, {3.5927721313042927`*^9, 
   3.5927721448949213`*^9}, 3.592772246139324*^9, 3.592772291811881*^9, 
   3.59277276299395*^9, {3.5927727986842012`*^9, 3.5927728156102123`*^9}, 
   3.5927729854591637`*^9, {3.5927732013324203`*^9, 3.59277320148761*^9}, {
   3.5927764813170223`*^9, 3.5927765426969023`*^9}, 3.592776636951676*^9, {
   3.5927804716152287`*^9, 3.592780472541325*^9}, {3.5927927403913507`*^9, 
   3.592792741350944*^9}, {3.5928274890648193`*^9, 3.5928274894709673`*^9}, {
   3.5928698194572563`*^9, 3.592869856128882*^9}, {3.5928716928314457`*^9, 
   3.592871709729251*^9}, 3.5929214998189087`*^9, {3.5929219021096888`*^9, 
   3.592921902492672*^9}, {3.592925999683341*^9, 3.592926000292861*^9}, {
   3.5929265564413567`*^9, 3.592926556831102*^9}, {3.593191581055113*^9, 
   3.593191581475861*^9}, {3.593191754533781*^9, 3.5931917830645647`*^9}, {
   3.593191815502367*^9, 3.593191816072352*^9}, {3.593191878655615*^9, 
   3.593191878791275*^9}, {3.5931924976555853`*^9, 3.593192498517729*^9}, {
   3.593192586056497*^9, 3.5931926404420357`*^9}, {3.593192671597899*^9, 
   3.593192681269909*^9}, {3.593192711929377*^9, 3.593192757830921*^9}, {
   3.593198659354298*^9, 3.59319865969238*^9}, {3.593198760192009*^9, 
   3.593198773002982*^9}, {3.5932145538572817`*^9, 3.5932145586110497`*^9}, 
   3.593276527361408*^9, 3.593385474068346*^9, {3.593387365605975*^9, 
   3.593387376576971*^9}, {3.593387411137824*^9, 3.5933874213499537`*^9}, {
   3.5933877258246813`*^9, 3.5933877261935596`*^9}, {3.593387776242445*^9, 
   3.593387785582316*^9}, {3.5934440797206707`*^9, 3.5934441304232264`*^9}, 
   3.593444162549739*^9, {3.593445076791622*^9, 3.593445077400723*^9}, {
   3.59344567656181*^9, 3.5934456921088467`*^9}, {3.593445743740451*^9, 
   3.593445772832899*^9}, {3.593446652995222*^9, 3.5934466538996277`*^9}, 
   3.593448463917787*^9, {3.593448560945092*^9, 3.59344856217062*^9}, {
   3.593469470777025*^9, 3.5934694716367064`*^9}, {3.593469704675931*^9, 
   3.593469705282894*^9}, 3.593469958821897*^9, {3.593470887233375*^9, 
   3.5934708896625223`*^9}, 3.593472410209291*^9, {3.593515681283361*^9, 
   3.593515690973024*^9}, {3.593515754061695*^9, 3.593515757494254*^9}, {
   3.593515810601774*^9, 3.593515812882571*^9}, {3.593516447686655*^9, 
   3.593516448583859*^9}, {3.593516505426827*^9, 3.593516506605672*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IntegratedValue42", "[", 
  RowBox[{"0.01", ",", "8."}], "]"}]], "Input",
 CellChangeTimes->{{3.593515699089589*^9, 3.593515706206738*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Vegas", "::", "accuracy"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Desired accuracy was not reached within \
\[NoBreak]\\!\\(104500\\)\[NoBreak] function evaluations.\"\>"}]], "Message", \
"MSG",
 CellChangeTimes->{3.593515741217267*^9, 3.593515802464931*^9, 
  3.5935158507008753`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"0.3880161241016705`", ",", "0.18821567327173913`", ",", "1.`"}], 
   "}"}], "}"}]], "Output",
 CellChangeTimes->{3.593515741218677*^9, 3.59351580246635*^9, 
  3.5935158507021723`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"klist", " ", "=", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"N", "[", "kmin", "]"}], "+", 
       RowBox[{
        FractionBox[
         RowBox[{"N", "[", "kmin", "]"}], "2"], "*", 
        RowBox[{"(", 
         RowBox[{"i", "-", "1"}], ")"}]}]}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"i", ",", " ", "1", ",", " ", "NRS"}], "}"}]}], "]"}]}], ";"}],
   " ", "//", "N"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"data1", " ", "=", " ", 
     RowBox[{"ParallelTable", "[", 
      RowBox[{
       RowBox[{"IntegratedValue32", "[", 
        RowBox[{
         RowBox[{"klist", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", "R"}], "]"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"i", ",", " ", "1", ",", " ", "NRS"}], "}"}]}], "]"}]}], 
    ";"}], " ", "//", "AbsoluteTiming"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "now", " ", "save", " ", "the", " ", "data", " ", "in", " ", "files"}], 
   " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fname", " ", "=", " ", 
   RowBox[{"StringJoin", "[", 
    RowBox[{
     RowBox[{"Directory", "[", "]"}], ",", "\"\</F3s/f32_\>\"", ",", 
     RowBox[{"ToString", "[", "NN", "]"}], ",", "\"\<.txt\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"file", " ", "=", " ", 
   RowBox[{"OpenWrite", "[", "fname", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"dataI", "=", 
      RowBox[{"Flatten", "[", 
       RowBox[{"data1", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"WriteString", "[", 
      RowBox[{"file", ",", " ", 
       RowBox[{"StringJoin", "[", 
        RowBox[{
         RowBox[{"ToString", "[", 
          RowBox[{"FortranForm", "[", 
           RowBox[{"klist", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", "\"\< \>\"", 
         ",", 
         RowBox[{"ToString", "[", 
          RowBox[{"FortranForm", "[", 
           RowBox[{"dataI", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], ",", "\"\< \>\"", 
         ",", " ", 
         RowBox[{"ToString", "[", 
          RowBox[{"FortranForm", "[", 
           RowBox[{"dataI", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], ",", " ", 
         "\"\<\\n\>\""}], "]"}]}], "]"}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", " ", "1", ",", " ", "NRS"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Close", "[", "fname", "]"}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.5927711753835773`*^9, 3.592771340892243*^9}, {
   3.592771439632832*^9, 3.5927715236642447`*^9}, {3.592771658103341*^9, 
   3.5927717445515823`*^9}, 3.5927719474711227`*^9, {3.592772028051697*^9, 
   3.592772038227812*^9}, {3.592772294916617*^9, 3.592772298437229*^9}, {
   3.592772540372761*^9, 3.5927727604843397`*^9}, {3.5927727922285223`*^9, 
   3.592772794261052*^9}, {3.5927728264783163`*^9, 3.592772840905918*^9}, {
   3.592772961968841*^9, 3.59277300715025*^9}, {3.592773120643577*^9, 
   3.592773168335147*^9}, {3.592773206143713*^9, 3.5927732073818808`*^9}, {
   3.5927735647265253`*^9, 3.592773566210203*^9}, {3.592828381830942*^9, 
   3.592828382160915*^9}, 3.592830825913354*^9, {3.5932145667468987`*^9, 
   3.593214580133106*^9}, {3.593385378589635*^9, 3.593385388859503*^9}, {
   3.593387660286862*^9, 3.593387661045257*^9}, {3.5933876957542877`*^9, 
   3.5933876975308733`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Suave", "::", "success"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Needed \[NoBreak]\\!\\(100152\\)\[NoBreak] function \
evaluations on \[NoBreak]\\!\\(100\\)\[NoBreak] subregions.\"\>"}]], "Message",\
 "MSG",
 CellChangeTimes->{
  3.592772134357877*^9, 3.5927721852904797`*^9, 3.592772257972266*^9, 
   3.592772341839302*^9, 3.59277276910349*^9, {3.592772800861311*^9, 
   3.592772820966248*^9}, {3.592772987813488*^9, 3.592773015546142*^9}, {
   3.592773124734326*^9, 3.592773169203025*^9}, 3.59277325710047*^9, 
   3.59277362700327*^9, 3.592828409524033*^9, 3.593214581715234*^9, 
   3.5932146347119513`*^9, {3.593387707578248*^9, 3.59338773180692*^9}, 
   3.5933878236215982`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Suave", "::", "success"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Needed \[NoBreak]\\!\\(100179\\)\[NoBreak] function \
evaluations on \[NoBreak]\\!\\(100\\)\[NoBreak] subregions.\"\>"}]], "Message",\
 "MSG",
 CellChangeTimes->{
  3.592772134357877*^9, 3.5927721852904797`*^9, 3.592772257972266*^9, 
   3.592772341839302*^9, 3.59277276910349*^9, {3.592772800861311*^9, 
   3.592772820966248*^9}, {3.592772987813488*^9, 3.592773015546142*^9}, {
   3.592773124734326*^9, 3.592773169203025*^9}, 3.59277325710047*^9, 
   3.59277362700327*^9, 3.592828409524033*^9, 3.593214581715234*^9, 
   3.5932146347119513`*^9, {3.593387707578248*^9, 3.59338773180692*^9}, 
   3.593387850258992*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"klist", " ", "=", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"N", "[", "kmin", "]"}], "+", 
       RowBox[{
        FractionBox[
         RowBox[{"N", "[", "kmin", "]"}], "2"], "*", 
        RowBox[{"(", 
         RowBox[{"i", "-", "1"}], ")"}]}]}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"i", ",", " ", "1", ",", " ", "NRS"}], "}"}]}], "]"}]}], ";"}],
   " ", "//", "N"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"data1", " ", "=", " ", 
     RowBox[{"ParallelTable", "[", 
      RowBox[{
       RowBox[{"IntegratedValue31", "[", 
        RowBox[{
         RowBox[{"klist", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", "R"}], "]"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"i", ",", " ", "1", ",", " ", "NRS"}], "}"}]}], "]"}]}], 
    ";"}], " ", "//", "AbsoluteTiming"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "now", " ", "save", " ", "the", " ", "data", " ", "in", " ", "files"}], 
   " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fname", " ", "=", " ", 
   RowBox[{"StringJoin", "[", 
    RowBox[{
     RowBox[{"Directory", "[", "]"}], ",", "\"\</F3s/f31_\>\"", ",", 
     RowBox[{"ToString", "[", "NN", "]"}], ",", "\"\<.txt\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"file", " ", "=", " ", 
   RowBox[{"OpenWrite", "[", "fname", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fname", " ", "=", " ", 
     RowBox[{"StringJoin", "[", 
      RowBox[{"\"\</home/sza5154/Research/feedersim/Theory/F3s/f31_\>\"", ",", 
       RowBox[{"ToString", "[", "NN", "]"}], ",", "\"\<.txt\>\""}], "]"}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{"file", " ", "=", " ", 
     RowBox[{"OpenWrite", "[", "fname", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Do", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"dataI", "=", 
        RowBox[{"Flatten", "[", 
         RowBox[{"data1", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"WriteString", "[", 
        RowBox[{"file", ",", " ", 
         RowBox[{"StringJoin", "[", 
          RowBox[{
           RowBox[{"ToString", "[", 
            RowBox[{"FortranForm", "[", 
             RowBox[{"klist", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", "\"\< \>\"", 
           ",", 
           RowBox[{"ToString", "[", 
            RowBox[{"FortranForm", "[", 
             RowBox[{"dataI", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], ",", "\"\< \>\"", 
           ",", " ", 
           RowBox[{"ToString", "[", 
            RowBox[{"FortranForm", "[", 
             RowBox[{"dataI", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], ",", " ", 
           "\"\<\\n\>\""}], "]"}]}], "]"}]}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"i", ",", " ", "1", ",", " ", "NRS"}], "}"}]}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Close", "[", "fname", "]"}], ";"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5927760053853397`*^9, 3.592776007089756*^9}, {
   3.592776555470686*^9, 3.5927765690179167`*^9}, {3.5928275186677313`*^9, 
   3.5928275188262653`*^9}, {3.593385447641788*^9, 3.5933854571511497`*^9}, {
   3.593444178432922*^9, 3.593444181129621*^9}, 3.593444346163642*^9, {
   3.593444378932732*^9, 3.5934444439247427`*^9}, {3.5934451326830263`*^9, 
   3.593445135996913*^9}, {3.5934451933057756`*^9, 3.593445226702444*^9}, {
   3.5934452718116627`*^9, 3.593445274389716*^9}, {3.593445336141431*^9, 
   3.59344533856743*^9}, {3.593445714356337*^9, 3.593445715635779*^9}, {
   3.593445871687708*^9, 3.5934458834966288`*^9}, {3.593446203132511*^9, 
   3.593446203557993*^9}, 3.59344630713479*^9, {3.593446501096034*^9, 
   3.59344657154554*^9}, {3.5934466611365*^9, 3.593446696251484*^9}, 
   3.5934467461033573`*^9, {3.5934467951465883`*^9, 3.59344682621557*^9}, {
   3.593446898006463*^9, 3.593446942161002*^9}, {3.593448387763578*^9, 
   3.593448397601325*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Suave", "::", "success"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Needed \\!\\(10000\\) function evaluations on \\!\\(10\\) \
subregions.\"\>"}]], "Message", "MSG",
 ShowCellLabel->True,
 CellChangeTimes->{3.593448344207114*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Suave", "::", "success"}], "MessageName"], ":", 
  " ", "\<\"Needed \\!\\(10000\\) function evaluations on \\!\\(10\\) \
subregions.\"\>"}]], "Message", "MSG",
 ShowCellLabel->True,
 CellChangeTimes->{3.593448344310714*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Suave", "::", "success"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Needed \\!\\(10000\\) function evaluations on \\!\\(10\\) \
subregions.\"\>"}]], "Message", "MSG",
 ShowCellLabel->True,
 CellChangeTimes->{3.593448344323024*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Suave", "::", "success"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Needed \\!\\(10000\\) function evaluations on \\!\\(10\\) \
subregions.\"\>"}]], "Message", "MSG",
 ShowCellLabel->True,
 CellChangeTimes->{3.5934483445107527`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Suave", "::", "success"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Needed \\!\\(10000\\) function evaluations on \\!\\(10\\) \
subregions.\"\>"}]], "Message", "MSG",
 ShowCellLabel->True,
 CellChangeTimes->{3.5934483445436487`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Suave", "::", "success"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Needed \\!\\(10000\\) function evaluations on \\!\\(10\\) \
subregions.\"\>"}]], "Message", "MSG",
 ShowCellLabel->True,
 CellChangeTimes->{3.593448344887891*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Suave", "::", "success"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Needed \\!\\(10000\\) function evaluations on \\!\\(10\\) \
subregions.\"\>"}]], "Message", "MSG",
 ShowCellLabel->True,
 CellChangeTimes->{3.593448346416976*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Suave", "::", "success"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Needed \\!\\(10000\\) function evaluations on \\!\\(10\\) \
subregions.\"\>"}]], "Message", "MSG",
 ShowCellLabel->True,
 CellChangeTimes->{3.593448347088873*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Suave", "::", "success"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Needed \\!\\(10000\\) function evaluations on \\!\\(10\\) \
subregions.\"\>"}]], "Message", "MSG",
 ShowCellLabel->True,
 CellChangeTimes->{3.59344834782476*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Suave", "::", "success"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Needed \\!\\(10000\\) function evaluations on \\!\\(10\\) \
subregions.\"\>"}]], "Message", "MSG",
 ShowCellLabel->True,
 CellChangeTimes->{3.593448348578274*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "6.60006700000000012806822269340045750141`6.840148257546129", ",", "Null"}],
   "}"}]], "Output",
 CellChangeTimes->{
  3.592776007295603*^9, 3.592776633380411*^9, 3.592776998575511*^9, 
   3.592793106765875*^9, 3.592827888014913*^9, 3.5933855471433277`*^9, 
   3.593385651621048*^9, 3.593444242919923*^9, {3.5934443737465076`*^9, 
   3.593444435000843*^9}, 3.593444744965992*^9, 3.593445117532407*^9, 
   3.5934451596422987`*^9, 3.593445217738965*^9, 3.593445252600267*^9, 
   3.593445297969771*^9, 3.593445362615986*^9, 3.593445724517857*^9, 
   3.5934457549547873`*^9, 3.593445802151476*^9, 3.593445908032243*^9, 
   3.5934462081657143`*^9, 3.593446271341393*^9, {3.593446513136568*^9, 
   3.5934465746079397`*^9}, {3.593446684471424*^9, 3.59344669987904*^9}, 
   3.593446772753553*^9, 3.593446804919759*^9, 3.5934469201707983`*^9, 
   3.593448349354622*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["data1"], "Input",
 CellChangeTimes->{{3.593448236376484*^9, 3.593448236937615*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "4.587896205474866`*^16", ",", "1.7295545817904056`*^14", ",", 
      "7.63644690476655`*^-8"}], "}"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "1.3375317372396864`*^16", ",", "5.063541565286697`*^13", ",", 
      "2.5540858814183942`*^-8"}], "}"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "5.578298525030006`*^15", ",", "2.1998585018602406`*^13", ",", 
      "3.9021736194893`*^-8"}], "}"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "2.832538210291724`*^15", ",", "1.1065390352575553`*^13", ",", 
      "4.897985343530094`*^-6"}], "}"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "1.6297562844931635`*^15", ",", "6.189791623226612`*^12", ",", 
      "0.00006247301972842577`"}], "}"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "1.021339762379857`*^15", ",", "3.9779668859605747`*^12", ",", 
      "0.000011269166032028624`"}], "}"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "6.817758327669222`*^14", ",", "2.638878624434003`*^12", ",", 
      "1.0826163890267481`*^-7"}], "}"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "4.773533920691558`*^14", ",", "1.8469659471710352`*^12", ",", 
      "0.00004457003197444665`"}], "}"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "3.4725903469904156`*^14", ",", "1.3918784349657078`*^12", ",", 
      "0.000057521879929485714`"}], "}"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "2.60409101255128`*^14", ",", "1.0520095063637283`*^12", ",", 
      "8.680115392044883`*^-6"}], "}"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "2.004677302894842`*^14", ",", "8.51998312802424`*^11", ",", 
      "2.72670462559126`*^-6"}], "}"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "1.5763100037237488`*^14", ",", "7.181212675966354`*^11", ",", 
      "4.988677391986728`*^-7"}], "}"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "1.2632359564808897`*^14", ",", "5.876341873952914`*^11", ",", 
      "0.0015657563765186237`"}], "}"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "1.0275998873461803`*^14", ",", "5.0156660672080676`*^11", ",", 
      "0.0020259897144353865`"}], "}"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "8.474682503674916`*^13", ",", "4.0303703606688934`*^11", ",", 
      "0.002435295635844722`"}], "}"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.593448237236062*^9}]
}, Open  ]],

Cell[BoxData["Ins"], "Input",
 CellChangeTimes->{{3.593447597429902*^9, 3.593447597721756*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"klist", " ", "=", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"N", "[", "kmin", "]"}], "+", 
       RowBox[{
        FractionBox[
         RowBox[{"N", "[", "kmin", "]"}], "2"], "*", 
        RowBox[{"(", 
         RowBox[{"i", "-", "1"}], ")"}]}]}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"i", ",", " ", "1", ",", " ", "NRS"}], "}"}]}], "]"}]}], ";"}],
   " ", "//", "N"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"data1", " ", "=", " ", 
     RowBox[{"ParallelTable", "[", 
      RowBox[{
       RowBox[{"IntegratedValue31D", "[", 
        RowBox[{
         RowBox[{"klist", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", "R"}], "]"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"i", ",", " ", "1", ",", " ", "NRS"}], "}"}]}], "]"}]}], 
    ";"}], " ", "//", "AbsoluteTiming"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "now", " ", "save", " ", "the", " ", "data", " ", "in", " ", "files"}], 
   " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fname", " ", "=", " ", 
   RowBox[{"StringJoin", "[", 
    RowBox[{
     RowBox[{"Directory", "[", "]"}], ",", "\"\</F3s/f31D_\>\"", ",", 
     RowBox[{"ToString", "[", "NN", "]"}], ",", "\"\<.txt\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"file", " ", "=", " ", 
   RowBox[{"OpenWrite", "[", "fname", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"dataI", "=", 
      RowBox[{"Flatten", "[", 
       RowBox[{"data1", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"WriteString", "[", 
      RowBox[{"file", ",", " ", 
       RowBox[{"StringJoin", "[", 
        RowBox[{
         RowBox[{"ToString", "[", 
          RowBox[{"FortranForm", "[", 
           RowBox[{"klist", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", "\"\< \>\"", 
         ",", 
         RowBox[{"ToString", "[", 
          RowBox[{"FortranForm", "[", 
           RowBox[{"dataI", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], ",", "\"\< \>\"", 
         ",", " ", 
         RowBox[{"ToString", "[", 
          RowBox[{"FortranForm", "[", 
           RowBox[{"dataI", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], ",", " ", 
         "\"\<\\n\>\""}], "]"}]}], "]"}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", " ", "1", ",", " ", "NRS"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Close", "[", "fname", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.592841407925789*^9, 3.592841407951898*^9}, {
  3.5929108243786373`*^9, 3.5929108407572603`*^9}, {3.593387456638483*^9, 
  3.593387464013657*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Suave", "::", "success"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Needed \[NoBreak]\\!\\(14000\\)\[NoBreak] function \
evaluations on \[NoBreak]\\!\\(14\\)\[NoBreak] subregions.\"\>"}]], "Message",\
 "MSG",
 CellChangeTimes->{3.592914179405549*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Suave", "::", "success"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Needed \[NoBreak]\\!\\(14000\\)\[NoBreak] function \
evaluations on \[NoBreak]\\!\\(14\\)\[NoBreak] subregions.\"\>"}]], "Message",\
 "MSG",
 CellChangeTimes->{3.5929141843323307`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Suave", "::", "success"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Needed \[NoBreak]\\!\\(14000\\)\[NoBreak] function \
evaluations on \[NoBreak]\\!\\(14\\)\[NoBreak] subregions.\"\>"}]], "Message",\
 "MSG",
 CellChangeTimes->{3.5929141901592417`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Suave :: \
success\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.592914191604917*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "412.90184499999998024577507749199867248535`8.636446736748972", ",", 
   "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.592914571553041*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"klist", " ", "=", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"N", "[", "kmin", "]"}], "+", 
       RowBox[{
        FractionBox[
         RowBox[{"N", "[", "kmin", "]"}], "2"], "*", 
        RowBox[{"(", 
         RowBox[{"i", "-", "1"}], ")"}]}]}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"i", ",", " ", "1", ",", " ", "NRS"}], "}"}]}], "]"}]}], ";"}],
   " ", "//", "N"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"data1", " ", "=", " ", 
     RowBox[{"ParallelTable", "[", 
      RowBox[{
       RowBox[{"IntegratedValue32D", "[", 
        RowBox[{
         RowBox[{"klist", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", "R"}], "]"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"i", ",", " ", "1", ",", " ", "NRS"}], "}"}]}], "]"}]}], 
    ";"}], " ", "//", "AbsoluteTiming"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "now", " ", "save", " ", "the", " ", "data", " ", "in", " ", "files"}], 
   " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fname", " ", "=", " ", 
   RowBox[{"StringJoin", "[", 
    RowBox[{
     RowBox[{"Directory", "[", "]"}], ",", " ", "\"\</F3s/f32D_\>\"", ",", 
     RowBox[{"ToString", "[", "NN", "]"}], ",", "\"\<.txt\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"file", " ", "=", " ", 
   RowBox[{"OpenWrite", "[", "fname", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"dataI", "=", 
      RowBox[{"Flatten", "[", 
       RowBox[{"data1", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"WriteString", "[", 
      RowBox[{"file", ",", " ", 
       RowBox[{"StringJoin", "[", 
        RowBox[{
         RowBox[{"ToString", "[", 
          RowBox[{"FortranForm", "[", 
           RowBox[{"klist", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", "\"\< \>\"", 
         ",", 
         RowBox[{"ToString", "[", 
          RowBox[{"FortranForm", "[", 
           RowBox[{"dataI", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], ",", "\"\< \>\"", 
         ",", " ", 
         RowBox[{"ToString", "[", 
          RowBox[{"FortranForm", "[", 
           RowBox[{"dataI", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], ",", " ", 
         "\"\<\\n\>\""}], "]"}]}], "]"}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", " ", "1", ",", " ", "NRS"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Close", "[", "fname", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.592910853414578*^9, 3.592910857623952*^9}, {
  3.5933874711779213`*^9, 3.593387480007723*^9}}],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.592918123241426*^9, 3.593222500253215*^9, 
  3.593387486638891*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"klist", " ", "=", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"N", "[", "kmin", "]"}], "+", 
       RowBox[{
        RowBox[{"N", "[", "kmin", "]"}], "*", 
        RowBox[{"(", 
         RowBox[{"i", "-", "1"}], ")"}]}]}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"i", ",", " ", "1", ",", " ", "NRS"}], "}"}]}], "]"}]}], ";"}],
   " ", "//", "N"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"data1", " ", "=", " ", 
     RowBox[{"ParallelTable", "[", 
      RowBox[{
       RowBox[{"IntegratedValue42", "[", 
        RowBox[{
         RowBox[{"klist", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", "R"}], "]"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"i", ",", " ", "1", ",", " ", "NRS"}], "}"}]}], "]"}]}], 
    ";"}], " ", "//", "AbsoluteTiming"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "now", " ", "save", " ", "the", " ", "data", " ", "in", " ", "files"}], 
   " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fname", " ", "=", " ", 
   RowBox[{"StringJoin", "[", 
    RowBox[{
     RowBox[{"Directory", "[", "]"}], ",", "\"\</F3s/f42_\>\"", ",", 
     RowBox[{"ToString", "[", "NN", "]"}], ",", "\"\<.txt\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"file", " ", "=", " ", 
   RowBox[{"OpenWrite", "[", "fname", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"dataI", "=", 
      RowBox[{"Flatten", "[", 
       RowBox[{"data1", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"WriteString", "[", 
      RowBox[{"file", ",", " ", 
       RowBox[{"StringJoin", "[", 
        RowBox[{
         RowBox[{"ToString", "[", 
          RowBox[{"FortranForm", "[", 
           RowBox[{"klist", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", "\"\< \>\"", 
         ",", 
         RowBox[{"ToString", "[", 
          RowBox[{"FortranForm", "[", 
           RowBox[{"dataI", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], ",", "\"\< \>\"", 
         ",", " ", 
         RowBox[{"ToString", "[", 
          RowBox[{"FortranForm", "[", 
           RowBox[{"dataI", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], ",", " ", 
         "\"\<\\n\>\""}], "]"}]}], "]"}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", " ", "1", ",", " ", "NRS"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Close", "[", "fname", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5933876394829607`*^9, 3.5933876479406013`*^9}, {
  3.59338768554923*^9, 3.593387687598267*^9}, {3.593469505910149*^9, 
  3.5934695083318243`*^9}}],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.593469513919517*^9, 3.5934696940417147`*^9, 
  3.593469798295259*^9, 3.593470733720428*^9, 3.5934719526422253`*^9, 
  3.593480055911484*^9, 3.593516616456401*^9, 3.593516689613307*^9, 
  3.593519198306422*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"7633", "*", 
  RowBox[{"10", "/", "2"}]}]], "Input",
 CellChangeTimes->{{3.593516462652853*^9, 3.59351646909225*^9}}],

Cell[BoxData["38165"], "Output",
 CellChangeTimes->{3.593516469568511*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "Suave"}]], "Input",
 CellChangeTimes->{{3.593447623530987*^9, 3.593447625000492*^9}}],

Cell[BoxData[
 StyleBox["\<\"Suave[f, {x, xmin, xmax}..] computes a numerical approximation \
to the integral of the real scalar or vector function f.  The output is a \
list with entries of the form {integral, error, chi-square probability} for \
each component of the integrand.\"\>", "MSG"]], "Print", "PrintUsage",
 CellChangeTimes->{3.593447625492586*^9},
 CellTags->"Info3593429625-3046814"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ApproxI", "[", 
    RowBox[{"k_", ",", "q_", ",", "r_", ",", "\[Mu]_"}], "]"}], ":=", 
   RowBox[{"2", "*", "\[Pi]", "*", 
    RowBox[{"Pvar", "[", "q", "]"}], "*", 
    SuperscriptBox["r", "2"], "*", 
    RowBox[{"Pvar", "[", "r", "]"}], "*", 
    RowBox[{"Pvar", "[", 
     RowBox[{"Sqrt", "[", 
      RowBox[{
       SuperscriptBox["k", "2"], "+", 
       RowBox[{"2", "*", "r", "*", "k", "*", "\[Mu]"}], "+", 
       SuperscriptBox["r", "2"]}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ApproxV", "[", 
    RowBox[{"k_", ",", "q_"}], "]"}], ":=", 
   RowBox[{"Suave", "[", 
    RowBox[{
     RowBox[{"ApproxI", "[", 
      RowBox[{"k", ",", "q", ",", "rr", ",", "\[Mu]"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"rr", ",", " ", "kmin", ",", " ", "kmax"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[Mu]", ",", " ", 
       RowBox[{"-", "1."}], ",", "1."}], "}"}], ",", " ", 
     RowBox[{"Verbose", "\[Rule]", "0"}], ",", " ", 
     RowBox[{"MaxPoints", "\[Rule]", "1000000"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ExactI", "[", 
    RowBox[{
    "k_", ",", "q_", ",", "\[Mu]q_", ",", "\[Phi]q_", ",", "r_", ",", 
     "\[Mu]r_", ",", "\[Phi]r_"}], "]"}], ":=", 
   RowBox[{
    SuperscriptBox["r", "2"], "*", 
    RowBox[{"Pvar", "[", "r", "]"}], "*", 
    RowBox[{"Pvar", "[", 
     RowBox[{"Sqrt", "[", 
      RowBox[{
       SuperscriptBox["q", "2"], "+", 
       SuperscriptBox["r", "2"], "-", 
       RowBox[{"2", "*", "q", "*", "r", "*", 
        RowBox[{"CosTheta", "[", 
         RowBox[{
         "\[Phi]q", ",", "\[Phi]r", ",", " ", "\[Mu]q", ",", " ", "\[Mu]r"}], 
         "]"}]}]}], "]"}], "]"}], "*", 
    RowBox[{"Pvar", "[", 
     RowBox[{"Sqrt", "[", 
      RowBox[{
       SuperscriptBox["k", "2"], "+", 
       SuperscriptBox["r", "2"], "+", 
       RowBox[{"2", "*", "k", "*", "r", "*", "\[Mu]r"}]}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ExactV", "[", 
    RowBox[{"k_", ",", "q_", ",", "\[Mu]q_", ",", "\[Phi]q_"}], "]"}], ":=", 
   RowBox[{"Suave", "[", 
    RowBox[{
     RowBox[{"ExactI", "[", 
      RowBox[{
      "k", ",", "q", ",", "\[Mu]q", ",", "\[Phi]q", ",", "r", ",", "ur", ",", 
       "pr"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "kmin", ",", " ", "kmax"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"ur", ",", " ", 
       RowBox[{"-", "1."}], ",", "1."}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"pr", ",", "0.", ",", " ", 
       RowBox[{"2", "*", "\[Pi]"}]}], "}"}], ",", " ", 
     RowBox[{"Verbose", "\[Rule]", "0"}], ",", " ", 
     RowBox[{"MaxPoints", "\[Rule]", "1000000"}]}], "]"}]}], ";"}]}], "Input",\

 CellChangeTimes->{{3.593542437450919*^9, 3.59354260962153*^9}, {
  3.593542795568717*^9, 3.5935427958368263`*^9}, {3.593542849482396*^9, 
  3.59354304536453*^9}, {3.5935441183171864`*^9, 3.593544148804495*^9}, {
  3.593864095715147*^9, 3.5938641032120028`*^9}, {3.593864133930842*^9, 
  3.593864144112464*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ApproxV", "[", 
  RowBox[{"0.01", ",", "0.5"}], "]"}]], "Input",
 CellChangeTimes->{{3.593542611155504*^9, 3.593542619776717*^9}, {
   3.5935427207389727`*^9, 3.593542721987047*^9}, 3.593543134577261*^9, {
   3.593543173182178*^9, 3.593543173355515*^9}, {3.5935433367868557`*^9, 
   3.59354333802067*^9}, {3.593544076744158*^9, 3.593544077086981*^9}, {
   3.5938606640028963`*^9, 3.593860664165472*^9}, {3.593860788054508*^9, 
   3.593860788223254*^9}, {3.593861098506843*^9, 3.593861099304335*^9}, {
   3.5938612246416883`*^9, 3.593861226276988*^9}, {3.593861662546892*^9, 
   3.593861662683958*^9}, 3.5938639630417433`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Suave", "::", "success"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Needed \[NoBreak]\\!\\(75040\\)\[NoBreak] function \
evaluations on \[NoBreak]\\!\\(75\\)\[NoBreak] subregions.\"\>"}]], "Message",\
 "MSG",
 CellChangeTimes->{3.5938604631477013`*^9, 3.59386066816042*^9, 
  3.593860791195561*^9, 3.593861102417254*^9, 3.5938612293881397`*^9, 
  3.593861719553734*^9, 3.593863966240934*^9, 3.5938642175823183`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"1.988959538264095`*^8", ",", "198090.22967258497`", ",", "1.`"}], 
   "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.593542621226795*^9, 3.5935427229129887`*^9, 3.593542803552248*^9, 
   3.593543137490623*^9, 3.59354317820562*^9, {3.5935433337372303`*^9, 
   3.593543341118763*^9}, {3.593544078090343*^9, 3.59354412149536*^9}, 
   3.5935441552641077`*^9, 3.5938603986677513`*^9, 3.593860463149362*^9, 
   3.59386066816446*^9, 3.593860791197115*^9, 3.593861102419853*^9, 
   3.593861229389847*^9, 3.593861719555986*^9, 3.593863966242508*^9, 
   3.593864217583735*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ExactV", "[", 
  RowBox[{"0.01", ",", "0.5", ",", "0.5", ",", " ", "1."}], "]"}]], "Input",
 CellChangeTimes->{{3.593543048564252*^9, 3.593543061257266*^9}, {
  3.5935431125533733`*^9, 3.593543137308606*^9}, {3.593543170166078*^9, 
  3.5935431703731728`*^9}, {3.59354331786581*^9, 3.5935433958321877`*^9}, {
  3.5935444462450457`*^9, 3.59354449266392*^9}, {3.593861220297743*^9, 
  3.593861222027678*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Suave", "::", "success"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Needed \[NoBreak]\\!\\(50024\\)\[NoBreak] function \
evaluations on \[NoBreak]\\!\\(50\\)\[NoBreak] subregions.\"\>"}]], "Message",\
 "MSG",
 CellChangeTimes->{
  3.5935430653678093`*^9, {3.593543118248248*^9, 3.593543143724374*^9}, 
   3.593543175478346*^9, {3.59354332362855*^9, 3.5935433682225246`*^9}, 
   3.5935434011255407`*^9, {3.593544458085754*^9, 3.593544497855378*^9}, 
   3.593861236561379*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"1.9592524433564392`*^8", ",", "472539.9211708381`", ",", "1.`"}], 
   "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5935430653695793`*^9, {3.5935431182514343`*^9, 3.5935431437270412`*^9}, 
   3.593543175481316*^9, {3.593543323630802*^9, 3.593543368225079*^9}, 
   3.593543438924007*^9, {3.593544458087317*^9, 3.593544497857069*^9}, 
   3.593861236563283*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"mu", " ", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", " ", 
     RowBox[{"-", "0.75"}], ",", " ", 
     RowBox[{"-", "0.5"}], ",", " ", 
     RowBox[{"-", "0.25"}], ",", " ", "0.", ",", " ", "0.25", ",", " ", "0.5",
      ",", " ", "0.75", ",", " ", "1."}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"phi", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0.", ",", " ", 
     FractionBox["\[Pi]", "4."], ",", " ", 
     FractionBox["\[Pi]", "2."], ",", " ", 
     RowBox[{"3.", "*", 
      FractionBox["\[Pi]", "4."]}], ",", " ", 
     RowBox[{"1.", "*", "\[Pi]"}], ",", " ", 
     RowBox[{
      FractionBox["5.", "4."], "*", "\[Pi]"}], ",", " ", 
     FractionBox[
      RowBox[{"3.", "*", "\[Pi]"}], "4"], ",", " ", 
     RowBox[{"2.", "*", "\[Pi]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tab", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"mu", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", 
       RowBox[{"phi", "[", 
        RowBox[{"[", "j", "]"}], "]"}], ",", " ", 
       RowBox[{"ExactV", "[", 
        RowBox[{"0.01", ",", " ", ".5", ",", " ", 
         RowBox[{"mu", "[", 
          RowBox[{"[", "i", "]"}], "]"}], ",", " ", 
         RowBox[{"phi", "[", 
          RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"i", ",", " ", "1", ",", " ", "9"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"j", ",", " ", "1", ",", " ", "8"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.593543619841004*^9, 3.5935436852593603`*^9}, {
  3.593860547724547*^9, 3.593860555359775*^9}, {3.5938607996105747`*^9, 
  3.593860799762355*^9}, {3.593860959704401*^9, 3.593860967850843*^9}, {
  3.593861028705161*^9, 3.593861029909832*^9}, {3.5938611231606407`*^9, 
  3.593861123838685*^9}, {3.5938617314442883`*^9, 3.5938617324987183`*^9}, {
  3.593863972992564*^9, 3.593863973534525*^9}, {3.5938643807007227`*^9, 
  3.593864538962566*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Suave", "::", "success"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Needed \[NoBreak]\\!\\(150025\\)\[NoBreak] function \
evaluations on \[NoBreak]\\!\\(150\\)\[NoBreak] subregions.\"\>"}]], "Message",\
 "MSG",
 CellChangeTimes->{3.593864550779866*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Suave", "::", "success"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Needed \[NoBreak]\\!\\(150025\\)\[NoBreak] function \
evaluations on \[NoBreak]\\!\\(150\\)\[NoBreak] subregions.\"\>"}]], "Message",\
 "MSG",
 CellChangeTimes->{3.593864561604125*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Suave", "::", "success"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Needed \[NoBreak]\\!\\(150025\\)\[NoBreak] function \
evaluations on \[NoBreak]\\!\\(150\\)\[NoBreak] subregions.\"\>"}]], "Message",\
 "MSG",
 CellChangeTimes->{3.593864572412932*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Suave :: \
success\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.593864572457258*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"tab3A", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"tab", "[", 
         RowBox[{"[", "n", "]"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
       RowBox[{"1.99", " ", 
        SuperscriptBox["10", "8"]}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"n", ",", " ", "1", ",", "9"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.593543758669443*^9, 3.593543785585734*^9}, {
  3.5938606268812733`*^9, 3.59386072239358*^9}, {3.5938608705837593`*^9, 
  3.593860897206543*^9}, {3.593861199063437*^9, 3.593861205003545*^9}, {
  3.593861782784651*^9, 3.593861789250594*^9}, {3.5938640378260393`*^9, 
  3.593864050840295*^9}, {3.5938643005419817`*^9, 3.5938643046573257`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"tab3AA", "[", "j_", "]"}], ":=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"tab", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "[", 
         RowBox[{"[", "j", "]"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"tab", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "[", 
           RowBox[{"[", "j", "]"}], "]"}], "[", 
          RowBox[{"[", "3", "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"i", ",", " ", "1", ",", " ", "9"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tab3BB", "[", "j_", "]"}], ":=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"tab", "[", 
          RowBox[{"[", "j", "]"}], "]"}], "[", 
         RowBox[{"[", "i", "]"}], "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"tab", "[", 
            RowBox[{"[", "j", "]"}], "]"}], "[", 
           RowBox[{"[", "i", "]"}], "]"}], "[", 
          RowBox[{"[", "3", "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"i", ",", " ", "1", ",", " ", "8"}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.5935437289818783`*^9, 3.593543806558034*^9}, 
   3.5938606114870453`*^9, {3.5938663238060913`*^9, 3.5938663662742767`*^9}, {
   3.5938664049787607`*^9, 3.593866429691677*^9}, {3.593866489140761*^9, 
   3.593866489601109*^9}, {3.59386654457034*^9, 3.5938665881464357`*^9}, {
   3.593866622753899*^9, 3.593866622959639*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"tab3AA", "[", "1", "]"}], ",", " ", 
     RowBox[{"tab3AA", "[", "2", "]"}], ",", " ", 
     RowBox[{"tab3AA", "[", "3", "]"}], ",", 
     RowBox[{"tab3AA", "[", "4", "]"}], ",", " ", 
     RowBox[{"tab3AA", "[", "5", "]"}], ",", "tab3A"}], "}"}], ",", " ", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.593543809353592*^9, 3.593543822340928*^9}, {
  3.59386072668778*^9, 3.593860730603553*^9}, {3.5938664937962112`*^9, 
  3.5938665330675583`*^9}, {3.593866826900077*^9, 3.593866833095641*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {
    {RGBColor[0.24720000000000014`, 0.24, 0.6], 
     LineBox[{{-1., 2.0523413856659248`*^8}, {-0.75, 
      2.036468417803839*^8}, {-0.5, 2.0204366005854923`*^8}, {-0.25, 
      2.0048514592603356`*^8}, {0., 1.9879444411723796`*^8}, {0.25, 
      1.973156029644077*^8}, {0.5, 1.9596981975428805`*^8}, {0.75, 
      1.943993124758936*^8}, {1., 1.9297586182823807`*^8}}]}, 
    {RGBColor[0.6, 0.24, 0.4428931686004542], 
     LineBox[{{-1., 2.0523413856659248`*^8}, {-0.75, 
      2.0358810657277635`*^8}, {-0.5, 2.020417879144027*^8}, {-0.25, 
      2.005339129484942*^8}, {0., 1.989554896669439*^8}, {0.25, 
      1.9735374982692248`*^8}, {0.5, 1.9598297547666228`*^8}, {0.75, 
      1.9433856777437848`*^8}, {1., 1.9297586182823807`*^8}}]}, 
    {RGBColor[0.6, 0.5470136627990908, 0.24], 
     LineBox[{{-1., 2.0523413856659248`*^8}, {-0.75, 
      2.0354557407194144`*^8}, {-0.5, 2.0201518901298487`*^8}, {-0.25, 
      2.0037507847853145`*^8}, {0., 1.9899106693163434`*^8}, {0.25, 
      1.9744595143350944`*^8}, {0.5, 1.9594137192917854`*^8}, {0.75, 
      1.9446213070123965`*^8}, {1., 1.9297586182823807`*^8}}]}, 
    {RGBColor[0.24, 0.6, 0.33692049419863584`], 
     LineBox[{{-1., 2.0523413856659248`*^8}, {-0.75, 
      2.035759629977453*^8}, {-0.5, 2.019927058721911*^8}, {-0.25, 
      2.003371342960472*^8}, {0., 1.9887397698405734`*^8}, {0.25, 
      1.9735784939283696`*^8}, {0.5, 1.95921801548991*^8}, {0.75, 
      1.9453868929838052`*^8}, {1., 1.9297586182823807`*^8}}]}, 
    {RGBColor[0.24, 0.3531726744018182, 0.6], 
     LineBox[{{-1., 2.0523413856659248`*^8}, {-0.75, 
      2.0358625971607998`*^8}, {-0.5, 2.0212006594468895`*^8}, {-0.25, 
      2.0047649045525378`*^8}, {0., 1.9879471551457354`*^8}, {0.25, 
      1.9733928405545065`*^8}, {0.5, 1.9598386812302825`*^8}, {0.75, 
      1.9451580455850273`*^8}, {1., 1.9297586182823807`*^8}}]}, 
    {RGBColor[0.6, 0.24, 0.5632658430022722], 
     LineBox[{{-1., 1.99*^8}, {-0.75, 1.99*^8}, {-0.5, 1.99*^8}, {-0.25, 
      1.99*^8}, {0., 1.99*^8}, {0.25, 1.99*^8}, {0.5, 1.99*^8}, {0.75, 
      1.99*^8}, {1., 1.99*^8}}]}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0., 1.9297586182823807`*^8},
  Method->{},
  PlotRange->{{-1., 1.}, {1.9297586182823807`*^8, 2.0523413856659248`*^8}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.04, 0.04}, {245165.5347670883, 
   245165.5347670883}}]], "Output",
 CellChangeTimes->{{3.593543813778664*^9, 3.593543822633918*^9}, 
   3.593860613290763*^9, 3.593860730886673*^9, {3.593860876732834*^9, 
   3.593860901545867*^9}, {3.59386102048914*^9, 3.593861022395582*^9}, 
   3.5938610755455227`*^9, 3.593861207819139*^9, 3.5938617921433764`*^9, 
   3.5938640550309067`*^9, 3.593864309118887*^9, {3.593866497789775*^9, 
   3.593866530107356*^9}, 3.593866833486074*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"tab3BB", "[", "2", "]"}], ",", " ", 
     RowBox[{"tab3BB", "[", "1", "]"}], ",", " ", 
     RowBox[{"tab3BB", "[", "3", "]"}], ",", " ", 
     RowBox[{"tab3BB", "[", "4", "]"}], ",", " ", 
     RowBox[{"tab3BB", "[", "5", "]"}], ",", " ", 
     RowBox[{"tab3BB", "[", "6", "]"}], ",", " ", 
     RowBox[{"tab3BB", "[", "7", "]"}], ",", " ", 
     RowBox[{"tab3BB", "[", "8", "]"}], ",", " ", 
     RowBox[{"tab3BB", "[", "9", "]"}], ",", " ", "tab3A"}], "}"}], ",", " ", 
   
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5938654853457613`*^9, 3.59386549314822*^9}, {
  3.593865532650427*^9, 3.5938655379529953`*^9}, {3.593866439415697*^9, 
  3.59386646662992*^9}, {3.593866595041366*^9, 3.5938667322686567`*^9}, {
  3.593866787108037*^9, 3.593866818220665*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {
    {RGBColor[0.24720000000000014`, 0.24, 0.6], 
     LineBox[{{0., 2.036468417803839*^8}, {0.7853981633974483, 
      2.0358810657277635`*^8}, {1.5707963267948966`, 
      2.0354557407194144`*^8}, {2.356194490192345, 2.035759629977453*^8}, {
      3.141592653589793, 2.0358625971607998`*^8}, {3.9269908169872414`, 
      2.0365949305683422`*^8}, {2.356194490192345, 2.035759629977453*^8}, {
      6.283185307179586, 2.0364684178038347`*^8}}]}, 
    {RGBColor[0.6, 0.24, 0.4428931686004542], 
     LineBox[{{0., 2.0523413856659248`*^8}, {0.7853981633974483, 
      2.0523413856659248`*^8}, {1.5707963267948966`, 
      2.0523413856659248`*^8}, {2.356194490192345, 2.0523413856659248`*^8}, {
      3.141592653589793, 2.0523413856659248`*^8}, {3.9269908169872414`, 
      2.0523413856659248`*^8}, {2.356194490192345, 2.0523413856659248`*^8}, {
      6.283185307179586, 2.0523413856659248`*^8}}]}, 
    {RGBColor[0.6, 0.5470136627990908, 0.24], 
     LineBox[{{0., 2.0204366005854923`*^8}, {0.7853981633974483, 
      2.020417879144027*^8}, {1.5707963267948966`, 2.0201518901298487`*^8}, {
      2.356194490192345, 2.019927058721911*^8}, {3.141592653589793, 
      2.0212006594468895`*^8}, {3.9269908169872414`, 
      2.0203297722990522`*^8}, {2.356194490192345, 2.019927058721911*^8}, {
      6.283185307179586, 2.020436600585492*^8}}]}, 
    {RGBColor[0.24, 0.6, 0.33692049419863584`], 
     LineBox[{{0., 2.0048514592603356`*^8}, {0.7853981633974483, 
      2.005339129484942*^8}, {1.5707963267948966`, 2.0037507847853145`*^8}, {
      2.356194490192345, 2.003371342960472*^8}, {3.141592653589793, 
      2.0047649045525378`*^8}, {3.9269908169872414`, 
      2.0042963148308367`*^8}, {2.356194490192345, 2.003371342960472*^8}, {
      6.283185307179586, 2.0048514592603347`*^8}}]}, 
    {RGBColor[0.24, 0.3531726744018182, 0.6], 
     LineBox[{{0., 1.9879444411723796`*^8}, {0.7853981633974483, 
      1.989554896669439*^8}, {1.5707963267948966`, 1.9899106693163434`*^8}, {
      2.356194490192345, 1.9887397698405734`*^8}, {3.141592653589793, 
      1.9879471551457354`*^8}, {3.9269908169872414`, 
      1.9881153009149754`*^8}, {2.356194490192345, 1.9887397698405734`*^8}, {
      6.283185307179586, 1.9879444411723801`*^8}}]}, 
    {RGBColor[0.6, 0.24, 0.5632658430022722], 
     LineBox[{{0., 1.973156029644077*^8}, {0.7853981633974483, 
      1.9735374982692248`*^8}, {1.5707963267948966`, 
      1.9744595143350944`*^8}, {2.356194490192345, 1.9735784939283696`*^8}, {
      3.141592653589793, 1.9733928405545065`*^8}, {3.9269908169872414`, 
      1.9750077969934967`*^8}, {2.356194490192345, 1.9735784939283696`*^8}, {
      6.283185307179586, 1.9731560296440765`*^8}}]}, 
    {RGBColor[0.6, 0.42664098839727194`, 0.24], 
     LineBox[{{0., 1.9596981975428805`*^8}, {0.7853981633974483, 
      1.9598297547666228`*^8}, {1.5707963267948966`, 
      1.9594137192917854`*^8}, {2.356194490192345, 1.95921801548991*^8}, {
      3.141592653589793, 1.9598386812302825`*^8}, {3.9269908169872414`, 
      1.960067618445058*^8}, {2.356194490192345, 1.95921801548991*^8}, {
      6.283185307179586, 1.9596981975428802`*^8}}]}, 
    {RGBColor[0.2634521802031821, 0.6, 0.24], 
     LineBox[{{0., 1.943993124758936*^8}, {0.7853981633974483, 
      1.9433856777437848`*^8}, {1.5707963267948966`, 
      1.9446213070123965`*^8}, {2.356194490192345, 1.9453868929838052`*^8}, {
      3.141592653589793, 1.9451580455850273`*^8}, {3.9269908169872414`, 
      1.944090784428914*^8}, {2.356194490192345, 1.9453868929838052`*^8}, {
      6.283185307179586, 1.9439931247589362`*^8}}]}, 
    {RGBColor[0.24, 0.47354534880363613`, 0.6], 
     LineBox[{{0., 1.9297586182823807`*^8}, {0.7853981633974483, 
      1.9297586182823807`*^8}, {1.5707963267948966`, 
      1.9297586182823807`*^8}, {2.356194490192345, 1.9297586182823807`*^8}, {
      3.141592653589793, 1.9297586182823807`*^8}, {3.9269908169872414`, 
      1.9297586182823807`*^8}, {2.356194490192345, 1.9297586182823807`*^8}, {
      6.283185307179586, 1.9297586182823807`*^8}}]}, 
    {RGBColor[0.5163614825959097, 0.24, 0.6], 
     LineBox[{{-1., 1.99*^8}, {-0.75, 1.99*^8}, {-0.5, 1.99*^8}, {-0.25, 
      1.99*^8}, {0., 1.99*^8}, {0.25, 1.99*^8}, {0.5, 1.99*^8}, {0.75, 
      1.99*^8}, {1., 1.99*^8}}]}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0., 1.9297586182823807`*^8},
  Method->{},
  PlotRange->{{-1., 6.283185307179586}, {1.9297586182823807`*^8, 
   2.0523413856659248`*^8}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.14566370614359173`, 0.14566370614359173`}, {
   245165.5347670883, 245165.5347670883}}]], "Output",
 CellChangeTimes->{{3.593865490375703*^9, 3.593865493488209*^9}, {
  3.593865535805393*^9, 3.593865538185197*^9}, {3.593866447773093*^9, 
  3.59386646691929*^9}, {3.593866614345331*^9, 3.5938667328009033`*^9}, {
  3.593866791028736*^9, 3.593866818591119*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"tab3BB", "[", "1", "]"}]}]], "Input",
 CellChangeTimes->{{3.59386662976283*^9, 3.59386663679241*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.`", ",", "2.0523413856659248`*^8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.7853981633974483`", ",", "2.0523413856659248`*^8"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"1.5707963267948966`", ",", "2.0523413856659248`*^8"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"2.356194490192345`", ",", "2.0523413856659248`*^8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.141592653589793`", ",", "2.0523413856659248`*^8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.9269908169872414`", ",", "2.0523413856659248`*^8"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"2.356194490192345`", ",", "2.0523413856659248`*^8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6.283185307179586`", ",", "2.0523413856659248`*^8"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.593866637045319*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"tab3d", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"tab", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "[", 
         RowBox[{"[", "j", "]"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"tab", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "[", 
         RowBox[{"[", "j", "]"}], "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"tab", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "[", 
           RowBox[{"[", "j", "]"}], "]"}], "[", 
          RowBox[{"[", "3", "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"i", ",", " ", "1", ",", " ", "9"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"j", ",", " ", "1", ",", "8"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.593861928908676*^9, 3.5938619604368467`*^9}, {
  3.5938637077433147`*^9, 3.593863722328475*^9}, {3.593865442768787*^9, 
  3.593865553087133*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"SM", "[", "k_", "]"}], ":=", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"\[Alpha]M", "[", 
      RowBox[{"k", ",", "7.8"}], "]"}], "2"], "*", 
    RowBox[{"Pvar", "[", "k", "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5935446780884542`*^9, 3.593544698155658*^9}, {
   3.593544752480863*^9, 3.59354475430488*^9}, {3.5935448495283327`*^9, 
   3.593544853255134*^9}, 3.593861267941423*^9, {3.5938613065874968`*^9, 
   3.59386130685779*^9}, {3.593861336880746*^9, 3.593861338420661*^9}, {
   3.593861692680228*^9, 3.593861693410872*^9}, {3.593861989254818*^9, 
   3.593862012458212*^9}, {3.593862061328718*^9, 3.593862072996043*^9}, {
   3.5938622387577953`*^9, 3.5938622447646914`*^9}, {3.593862293463772*^9, 
   3.593862299858038*^9}, {3.593862334312829*^9, 3.59386234102485*^9}, {
   3.593862407069319*^9, 3.5938624093936033`*^9}, 3.5938624777984324`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LogLogPlot", "[", 
  RowBox[{
   RowBox[{"SM", "[", "k", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"k", ",", " ", "kmin", ",", " ", "0.5"}], "}"}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.593544699509479*^9, 3.593544705170354*^9}, {
  3.593544863733594*^9, 3.593544888858316*^9}, {3.593861280980151*^9, 
  3.5938612813094873`*^9}, {3.5938624820225887`*^9, 3.593862482297742*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13c8lV8YAPCLeyUZ771CIRkVDXvdpU5IS0PSwK9BlMyMNIjQICFREjIi
o6GsUryPUYpURlIZZa/MZPM7/rqf7+e+97znnOe5z3mOvLXLPlteCoWSy0Oh
LHyqlWZTFr+XBK6FvVXHRg4KT9z+2vqdJHzNdzzJ2cRBQ74tnm/KJMEnYtL+
FnYWd0mfS7EkyK5NNNdHHKSeZ/21vkASmGeK30Vuxk6nZzx8Igm1lYSwgREH
aYa5mKHbkiBjL0rc2c5BupbrU72OSMJ+k94Vivs5qCoviU7rl4AyVcPFfqc5
6P0+MxHlyxIgOX5zb9Yl/HxW3RObZRLQEeQzUHqLg7SrzcWKUsXhYGqETmQK
B93RJASfcsVBotmoeF0+B10/WPHuzYel4HJ9Q+GaDxz0R998TfuhpeB5ebAg
/jsH5Z9YLpk4KAbRcSi+touD6Huaqrx9xKD6Xefnn2Mc9Pn8D/EBhhikXbjh
d5OHi/yeX9E3oYvBhi3qPi+x1XvUbTNExeC+/7R1G3bEoWs5dkJicOZ9ew+T
l4sO6GmbtdDEQMRjRXsrduPfm+FfJhgw2Tvgr0nlom6XzUuymxmwS8RYDfi5
iGKXRjmXwYCNnm0Wt5dwERnrkPwijQHWNCH/19iXalWN/6QyYJCZf6MNewbl
3rBOZkB53QljLSEumpAukdgVy4BbtHcHq7GHqn9uUAhlQJfEx5ZFIlz0S1/0
8MczDHjmbLPhCMFFDzxqpvldGXCuKu6GP/aRzKj4zc4MeJ1VWpmK3bhMpj3v
NAPG4mIHBrAbRpVdEm0YYCa8pNCHzkVf0g2unDVnwHj0hGsUg4uKxc8+l2Mx
oPBYW+3jpVzkr3Ep47weA9ZsZQpVYhvsuppco8MAN6dJpR7sssA7UYGaDPhd
Fr54tTgXvRvNO9+9ngHUslL3+9gV1eObs2QZ8Orqg+/+ElxUd/N8zSYqAyqN
L0VylnFRZPrlymheBuj4RyscwDZ/G1Q2TGGAwcHwCFfs+pl7ecmzdNh9q10y
BbvBoSBm0Tgdcs8/yxNazkVN26etP/fQga2mwarH7qT5jB75TAfDhOERU2ku
ypWLOxlZRYfJ733XT2MHcgp/fqikw0ubi5P+2PJnZku139PhgR/9dDa2VaNP
pGAxHYTtl11jyHBR7YtLOnkv6NBYZ57wATupKj69L4sOystm6luwXbuLVsg/
o0Oer3DXGLaI7DwtJJMOT1VX35ZfwUU7gnzrjz+kw4FpoeVe2HDUz0v4Dh36
HuZUSMlyUdiFhD6DSDrwN42FqmIfiYKj5yLo8Hqz/XoD7JkKyra2UDq4ojv9
p7D1dC8ve3WNDsl3a2/mYD8V8n914jwdEg7NsoxWcpGPUpJKjBcdFI80eJlj
mxiUJH72pEPn0bgQO+weL95gthsdslRvsa9jr2rztyAc6CDq9TnlA/b9VwHT
r63o8OPMYKqRHF6fpFrNpAUdfkaZ0MywjTx/pOkdpsNqyjv2cewBdY0D2eZ0
4B4qWOeDjdKaszJ202HLmyMy2dgdd1h29xAdHFrFtCXluajgbzv320Y6pC3Z
P6WAHbovXExcH3+fbnVHFZsp0gXhLDp0mLnu2YIdfCVS+romHRqe65e6Yqt5
DH45u4oOt5oV40lsak3MoxwFOtCvxuW9x25QM740IkcHQVuf5Gps/77Y9c4r
6FC6VXyqFbvOesdVWwk6LONdG82nwEVpMGaVvJQOd9cdMl2C7SObqPWbQQc+
ab1mBvaaH+O/rETpoLI0zU0e+7xpCme/AB2ikqsCuNi7n+1lRPDTwS1j5JsB
toLwTPdnKh18I4Xnt2F/fL/vzk4eOnxfUf52P3bCmjnHoHkClBN1bS2wPQPT
DctnCVD/ov/tKLYsogwbTBEgZZejeRp7JC6z3G8CP7/1r7QLdvn0gfiifwSs
Lnf85o7tmv9kJ3uUgDKBtDJv7C3ihxXODRPA+sn+54ct5U6dzB0koMEldTIQ
u1TVMlWjn4Dv7o88Q7BjzuysvdlLwJbG5OywhfFyOJTebgIGtdZ+iMA2Hl+v
YtxFgPV7xbwobBm2jEVSBwEHmnwvRC/Mz1vo2lwbAcZP1krcx35PzmRbtBJw
yF44KA7bY0uTsFgLAQRX628i9o7rVWyXJgIar+7qT8aWqyw8WfmTgM7V+16n
YP8Tfhqp9IOAXBmV44+wq/bGFwc0EFBhW9GUhv3wduhASz0B88PiGhnYF+ov
SXO/EuCcMW2Rib13ucu26FoCrjiftHy8ED+ro55/qwnQEd+i+QR7Jn5P0t4v
eH2Ofi0Lrvm96fPjTwSEcmg2TxfyYZX6jEAVAZX65JsF+56UW2tbScBL5Zj+
BR/IIA4UfyAgJ+3yyII3/KEErHhPwLXjxz8tmFd9+Nn5dwQ0DazyW3CD2+/G
r2UEWLXnL1rw09zqxZqlBARV0WwX3h84UawbWozfrzJ1d2G+FpwXNr0kAZJ+
fgkL69G4lBRuXETADWbgpYX1ChRHFCa9IeBbyZBGOnYzX0DvXAEBHf7PCxb2
K8fYXdLyFQH6X58vS8UODrIxys8nIF+kaedD7GMfzc6I5RHwxlt2fxK2rqhR
vEsOATa2xzUSsIX2aVdWvsDzXXSrbSF+bZGrJpSeEyAfE316Ib4F35auDnxG
ANpt824h/uFStH2/nhCgtKvx30J+cBM6MqMzCNB7euXrQj4x2r42/E0jYA6F
BCzkW/fqdzTTRwR88f1DC8KOzEw9uvghAZekHK9dxj49cCfENokAQ7ejV32w
kca1V8UJBPx1Pnz4PPafvJNiF+II0F0ifNEVu2zyIKq/j/PbM/aDw0I+c7c5
acYQMCHd3Ge3kL8lyuW9d/D/54xiphV2fFXPBctwAlKcTjCMF/KT+PEoPxTn
02LtmU0L+WlWUSd2kwBLqtArFvZ4Q4bqxyAC+t/6Zm5YyK92h1ZuAAEalnJn
CGztNR7BnpdxPG/sNhHAXn7KW/OpLwEyXpXD87jetPaF+K/0JmDDjOH9AWyP
0ScKvJ4E2C9Tt/2AfUgnr4LtToBCcl3YQj3T9ypycz9DwHrH/oBcbP7pTyXt
Tng/sxa9T8C+yztkXW5HwIrlvW88sL2NJgQptgTc/7Ba3R772FVKNtOGgMtH
Jxz+w1YWpPNlHCWgu2uUu1BPC+iaySGHCKht27SZgd0s59FmugO//wb/60Rc
r0usvW8Eb8P58KM4IwL70cNArVJjvP8vLY4HLJwHylEB2oYEmM7nKZyQW8j3
PEVJLgFnnCVHFbDXbJqwaVTB+zfj/iIKnyeClylC4hvw/nkr8wVgD5YI5Oxa
R0CdIHW5K/ZL4+VUcg0B6UGlt7dj79jNfpi4kgCnMMeSSXy+Of3n3W5HJ8Dr
XEX/bmyzwA+thaL4/8E4xcfGZmVK/F4qQoB35s6OVdi0yaymEkECxpNDBafw
eRsX2VEvSyVgNCCjIRE75m5cxJM/ovC0865rFz6v7Tr0wix7RcGR/7bGZ2xN
rZobi7tEYSfp9yYPu+IT/xXbX6Jwi/e32hXsKZqr14paUVB0cw9eiW3pYWB1
86UoqFgIzW7H/YNySeMhTq4o/FaJMVPF/ivqZd7zXBQ6XerdGNghmZm7t2SK
Qkz5kiU/pLjoTevSzbNxohCguD3BDlvGtGu1U4AonMzct8sT9zONKiGDJrtF
gd+pUv2UJM738wdas3eIgrDsxTAD7Cdv5b5KbRWFoIs3MmSwL/2XW9C9SRTU
nC+Kf8H9ltzN5iuBGqIwlnrkjRb2iX51mTdLRUEhgk9/APdvfzK+blv/UwR8
m0aD1XD/V//vASfimwjEft5tyoNdZHBadbJWBKbS66trcL8Y/mNOrPyjCLgM
6fB4YmsKKrdYF4nAJyYpmYf7y7P2FzxjEkVg++rNy9eLctGc0sqkxadEwK5K
QOkX7ndHJucPXz4hAvm8mbIZ2J2Vv+iTx0SgePpHtTv2J5eky92HRSBxrvY0
P/aD/NXHy3eKgLtLhZ2yIK4HWzfIXVETAUG/H4FHBfD5bseKp4wLg2DFF8sY
3I/zp5jFjF8RBkqs4ivDGQ6aRUVzmf7CMNhb4MaD/bdR2eaYrzDkKOweKZrm
oLalc+s/nBOG3LZ0QxY2BKYVxjgIQ8TWpRrrpzjowonZX/qmwrjfeWVMneCg
AcVHSoEywvCWLT14Y5SDviVN5RDZQvCqZrDtXw8HlSslWp78tAS01NbrhtRw
kJ9KwaqeCUFwYfNXrC3goJV5HlqxSoIwqSqh+TeBg5rfqn4KMVoMG5TSC/yu
cJDdAcsbaa4C0JpyKmyREwcJO1+r47mxCFokTSIf4PtVjIC5TUg6P1Cl9sgz
8P1OYLEU2zCVH4Jq+XgL9TnIc3ELMZXED35FF9+exN4raF90MpYf1olrDr3h
chBNyGe5YRg/qCTezrHlcJCraMrnSQ9+0GNUDD5jctAWiTHOScQPNiMC9rJa
HPRCooAhq88P4b3fjUo1OUhO0renjsUPI+kNP05iT0kuvmugxQ+v3UrVsjTw
fXL5ipEVa/jBVfaZub46B0mt2JJWt4QfDCOX7N2mgu+filFLDb7RYE2W2QsJ
Jby/CsG/n9fSgHJMdN+jNRxElfd9Kv+FBsZfV5zSw14ma7+N5wMNigx8Bs1X
c9CmZfreUEADD5qlTogiB4UKdbRtjKfBtLj80M+VHLR+TDubY0sD33+PJ6ck
OShndK1f5nE8Hqv41VnsjSOyu6SP0MBlX0/OsAQH7RsU6Jo6QINO8QLzDnE8
n55GqYJtNFD/s16sVAzfX5sC/ZkbaHCknVf6oCiOz7s6U51RKswK7Hf9RuOg
0VCzyt+DVDC8+f2QAbbfwRqj0H4q6GyRdX1MxfHq/qzX1UEFR19e5Ut8HPRJ
sHLFvQYqHGYHZEjy4PvwnuKemUIqvIgK8laYYSP+hieXy65ToV6vlBY1zEYp
PVefm8lSYVXcyoDJ72y0kSkzREhTQebcfLYWdv3V56qfJKlQKfVM06mBjQRW
NWZuo1Nh0X0FueZ6Njp9RCNVn0qFkeQD/fm1bKRa+zNGqZcPUtpEx02q2Ojl
G/XA6Vw+SGULhQkBG1WE/TiQvIsPrsVbHfR/yEa+jQ9uLN/BB7SG+tHwZDbS
XmsLYcZ88N3g3v0HSWwUXzK41nsTH8Rx+OULE9jIbYw6u1+DD86uKwufjGUj
aUu1ZH5xPvimstXTO4qNHNcEDto38sIz6vukqqtsJO++fdWvBl4wjWg42XUF
r4cUOXzgKy907fCv58FGh++VGHzihaK77iXMADYSD3kaJQ28IDKvsvuZLxsV
DTdwqpJ5wSla413JOTYSLVS5ru7AC6myatvuO7DR+1pv+7aTvGC70rSn+TQb
+fVW7rhzghcWXdp6VhF7SPK08Mx/vMATN3/w2Sk2+uKWGlG+lxdG+Hr31diy
UYTyyrgjurxwCtaGbjnGRhKRxIsQHl5Yc+jwwWZzNlrhMPqz+y4PmFRUU44a
stGIr1v2/kge4KbHTpcbsNG7yOFgCOcB8zM1uzWwXYsGWdFB+Plroy3UzWxU
Qu+/u/UiD9T9Cql+upGNTr1sN0s9wgMPc6oq+NlslEOrr7RZzQMadTHng9XZ
KEjKPPmzPA9ES5w1HlBjoyNqdRc4sjzgSx8/aIq96HDNWjFJHjD12LtaXJWN
LB5/ulYiwAOV9X5uEevZaH5fuaF8PwX0IrfvtVrDRjsSXr5ufkGBtG8Pbo5J
sZGCb/Gma88o8Fv/z9JN2FP/VZSqPabA7Nb51deWs1GGdGOlXwoFWib31DGW
sdHiu/M/FaIp8KJwZlhSHO/3TeMZOx8KUMpa9OpF2GjLxTru4FYK/ChM11jK
w0YyFk1w14gCkqvvFa+lsNFfZqcR2kwBueSCFP15Fnr4b9zkFpsCPTkNrsdm
WYjqJv2flgoF2nQ0d0RMslDpKWsfLwYF5G0Uz6cPs9Dlx78uzr+aJ/ennzpQ
9ouFtp1dKeKWPU8e7476m9XCQiLoSEL743myke0UFNvMQrG1P8s+PJgnD57e
mevayEIvp+qFI6/Mk+2t94eFG1hoaFvVA2XTebLekLZX8TMLHel4VWraPUdm
IheeqTcstPrZhHnZ7znSTYdiV/+ahfrP6XXr/pwjfy252/WigIUuCOUKyXya
I5evKrJ3fMlCUVpZ5p3Zc+R+qpJvazYLfbyc2nXBd47sKQyzbstgIbbs7SUP
JebILImkTM972O0awddF58i1NWrn9kZjZ3wRcBKYI28qB8ZvuIutK8KvOzVL
Nt6Lp/dEshBrdxDlfdMsaSiqu949nIWYl3zH+h7Okiu9mqI+X2Mh3WaHFi2t
WVJKcU/wYy8W0oo3yi7dM0NWNuceuGmBx5v4Fyy/fYbUEOZlvTzMQmhfurWv
wQwp3S5S0nqIhUz4RRgcnRlSi1USoXuQhU44f3N9ITVDro6pyP9mxkJ3Np5W
TeyYJik1O4P+mrDQRHNY+qWL0+RI8LYVhhtZaI5pcLnRY5q0juV5vEMfx/P2
30Ns52nSU87RfS+XhehbDwv8OzZNHnOJCjvAZqF1zxROOhlPk9fa5reZ6LKQ
pW/uKiv6NOms+MfxuwoLFa38+YD1aIrsuFvj6izNQrOef2wWJ0yRe+krP8pI
sRD347zS9+gpkt0y9Pf9MhYqOLcq61zwFBm5yLJaSoKF8qudIN9pitTU+V6W
QrBQVgDlt472FEn1KKmzprFQctdqBc3iSfJJnItd6x8muv7M9eG6nxPkhLV1
b34REzXTs0ak6ybIlOl8H7NCJtLxGETCVRPk7T7eTUOvmaiV6dw0WDRBalr+
26vyiok4JQ4SuUkT5K+frCe52Uw0UGd3fdPpCfKtcGvYTBoTmU1ZOe6fHCer
YhRfrolkogyr2IItI+Okksyu+40RTEQhfwro9Y2T/+J+ekfcYqLHARYpy5vG
ydCw5OHZUCbiFz7U3Azj5PX43tvVQUz0cqXZXvvreLwf8vMWvkwku2W79iXJ
cbI0NnKtlz0TXeDE/uwmxkm+G+c2K5xiom8ag/5mguNkA+fW9Uo7JgqXjapW
nv1Hjvaeu7rsBBPxTfxyrm39R15KCA67f4SJujPOpSs//UeWbenVNzBjohdE
mmyt0T8yZP/5YHEOExk38i9Wdhsj6UUpJvH8TNT46VUs1WGMtIXnqR+pTHSm
2FH9t80YuX9w6cgULxPFptYcjDEfI2Us1UIOzuuhUdf4VCHWGFm/zH2IPqGH
Emi6RsPzf8lgx0tdt3r00JSqrW/Bzb9ktpXio5KPeujJ5dIxk/RR8rb/8+kr
t/TQNoHg1qSkUdJQwu5Cdpgeag/d+3ni/ijO51iRlpt6SCa2Ke1h6CgprMCw
UA/WQyF54/iqMkpaDFFqCvz1kGPf+pLMjaNk1XsPCUd3PbTOPDJUsG6EPObA
DtxmpodSlW2V3s8Nkz2rTFqvi+ihw68PxW+aGCavqg6N/iekh4R2m4jnDw+T
7Ej9zZqCesjNXYsvtX2YdEPKwQ00PbSxiKcloGKYLI6Nj5Ce1UXfzOLvbLoz
TB5yWuzn1aeLBHy/0fJVhknu4Vclu8p10Wt6pbeq0jBZkRS6ea5MFzk/LBpN
kRsmO+uZ449LdFHdh5TfkWJ4/OTe79QiXZS41KPQbXKIrAp13RmXo4vrB+Gp
+naIPPTaX/9Uoi5y+Lq9PcVqiMz/FGmpe14XHToRtzXMfIg0yqgOtT2ri4xG
hzLO7R4i48QSqm+56yIZevSZnWiInNX0DP3tpIs+mnTODSkOkUedSOYRa/z7
6zStc/WDpMHf6p7PO3TRD1uvuIejA6RgtIvXi+W66EWA7AmvjgFSImtpZLCE
LgpOfLtux7cBMtdySOyYGJ5fk9jLwYIB0v+FkwqfsC66vz+rhu0/QJK7JzXW
UnSRlWHPompigIzit0r506GDmuQs3WZV/pAfJGRNac90UInd2r4SuT/kYv3c
tTmZOij18bjNdbE/ZEBFo9fRNB3kyow0F5vsJz18hIwzE3UQ794q5tqyfrKr
f7mTRKQOUvbdNL/fop9MDDn1XuOcDnJrUgx5fLWPnDRV89usr4MOKo5Q3c73
kV1b6D8cWTqIaw8+eo595Pc9lYm3dXQQbczKpcS0j3xgVne8VkUHRQvd2dcg
00eyPyX0S8nqoEKOwHJqdi/5ja0YWzqrjQRi+lMsW3rI3PKsDI1X2ih+Xtfo
7pcess1Dc1IzRxvp2F5urSnuIVUVHHI3PNNG1uoSK3c87CG7tWT5Fqdoo9fv
NkUz7XtIp5zImOPh2sh5NCJYfLSbnJMOOe9pq42oh5uUTdu7yZZfaV4DR7XR
/SKl8pCv3STbYbTwPwtt9D7oDR/1ZTfpdZUWILtHG8nLdXqPeHeTh314nFcx
tVGdCcvlM383eWj/+ufSAtro9IsA4SUTXeRzZ0ulDh5txLPsU6ZxTxfps85l
edK0FlJts+4urOwi/7xrTBgb0ELXzoccfxzeRZ5NVN4yW6eF2KktZkFSXaSD
g9J6i3gt9GXJupGyJV0kWftmaNNdLXTyjEc4ZbaT3HfCSU88XAtFchdXebV0
kju7JmZCLmuhPzWaxnYPO0khvnNPH9looUCmT3tiFHZYb928pRaSii/3b7ra
ScqH+N8y2q+FjO2tyP32nWRktDU9wkgL15/U/8ItOknTu6N997hayF17eLpy
Zyf5oa8uOERbCwnGcGIW6XeS7/W6new3aKGE+StMQ9VOMmr3mKj6Ki30P9m5
kXA=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->NCache[{
     Log[Rational[1, 1200] Pi], 19.14135837305965}, {-5.945346949926692, 
    19.14135837305965}],
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& )},
  FrameTicks->{{{{18.420680743952367`, 
       FormBox[
        TemplateBox[{"10", "8"}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm]}, {20.72326583694641, 
       FormBox[
        TemplateBox[{"10", "9"}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm]}, {23.025850929940457`, 
       FormBox[
        TemplateBox[{"10", "10"}, "Superscript", SyntaxForm -> 
         SuperscriptBox], TraditionalForm]}, {25.328436022934504`, 
       FormBox[
        TemplateBox[{"10", "11"}, "Superscript", SyntaxForm -> 
         SuperscriptBox], TraditionalForm]}, {27.631021115928547`, 
       FormBox[
        TemplateBox[{"10", "12"}, "Superscript", SyntaxForm -> 
         SuperscriptBox], TraditionalForm]}, {19.11382792451231, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {19.519293032620475`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {19.806975105072254`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {20.030118656386467`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {20.21244021318042, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {20.36659089300768, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {20.5001222856322, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {20.617905321288585`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {21.416413017506358`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {21.82187812561452, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {22.1095601980663, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {22.33270374938051, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {22.515025306174465`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {22.669175986001726`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {22.80270737862625, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {22.920490414282632`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {23.7189981105004, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {24.124463218608568`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {24.412145291060348`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {24.635288842374557`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {24.81761039916851, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {24.97176107899577, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {25.10529247162029, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {25.223075507276675`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {26.021583203494448`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {26.42704831160261, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {26.714730384054395`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {26.937873935368604`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {27.12019549216256, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {27.274346171989816`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {27.40787756461434, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {27.525660600270722`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{18.420680743952367`, 
       FormBox["\"\"", TraditionalForm]}, {20.72326583694641, 
       FormBox["\"\"", TraditionalForm]}, {23.025850929940457`, 
       FormBox["\"\"", TraditionalForm]}, {25.328436022934504`, 
       FormBox["\"\"", TraditionalForm]}, {27.631021115928547`, 
       FormBox["\"\"", TraditionalForm]}, {19.11382792451231, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {19.519293032620475`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {19.806975105072254`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {20.030118656386467`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {20.21244021318042, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {20.36659089300768, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {20.5001222856322, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {20.617905321288585`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {21.416413017506358`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {21.82187812561452, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {22.1095601980663, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {22.33270374938051, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {22.515025306174465`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {22.669175986001726`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {22.80270737862625, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {22.920490414282632`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {23.7189981105004, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {24.124463218608568`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {24.412145291060348`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {24.635288842374557`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {24.81761039916851, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {24.97176107899577, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {25.10529247162029, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {25.223075507276675`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {26.021583203494448`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {26.42704831160261, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {26.714730384054395`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {26.937873935368604`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {27.12019549216256, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {27.274346171989816`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {27.40787756461434, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {27.525660600270722`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {{{-6.907755278982137, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.001\"", 0.001, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-5.298317366548036, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.005\"", 0.005, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-4.605170185988092, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.995732273553991, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.050\"", 0.05, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.302585092994046, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.500\"", 0.5, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0., 
       FormBox[
        TagBox[
         InterpretationBox["\"1.000\"", 1., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"5.000\"", 5., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.809142990314028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.521460917862246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.115995809754082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.961845129926823, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.8283137373023015`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.710530701645918, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.6592600369327783`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.4079456086518722`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.35667494393873245`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782628`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-6.907755278982137, 
       FormBox["\"\"", TraditionalForm]}, {-5.298317366548036, 
       FormBox["\"\"", TraditionalForm]}, {-4.605170185988092, 
       FormBox["\"\"", TraditionalForm]}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm]}, {-2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {0., 
       FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {-6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.809142990314028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.521460917862246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.115995809754082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.961845129926823, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.8283137373023015`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.710530701645918, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.6592600369327783`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.4079456086518722`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.35667494393873245`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782628`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}},
  GridLines->{None, None},
  Method->{},
  PlotRange->NCache[{{
      Log[Rational[1, 1200] Pi], -0.6931471805599453}, {19.14135837305965, 
     28.1354819838095}}, {{-5.945346949926692, -0.6931471805599453}, {
    19.14135837305965, 28.1354819838095}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{{{-6.907755278982137, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.001\"", 0.001, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-5.298317366548036, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.005\"", 0.005, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-4.605170185988092, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.995732273553991, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.050\"", 0.05, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.302585092994046, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.500\"", 0.5, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0., 
      FormBox[
       TagBox[
        InterpretationBox["\"1.000\"", 1., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"5.000\"", 5., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-6.214608098422191, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.809142990314028, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.521460917862246, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.115995809754082, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.961845129926823, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.8283137373023015`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.710530701645918, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.912023005428146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.506557897319982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.2188758248682006`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.8134107167600364`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.6592600369327783`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.5257286443082556`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.4079456086518722`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.6094379124341003`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.203972804325936, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.916290731874155, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.5108256237659907, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.35667494393873245`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.2231435513142097, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.10536051565782628`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.6931471805599453, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.0986122886681098`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.3862943611198906`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}, {{18.420680743952367`, 
      FormBox[
       TemplateBox[{"10", "8"}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {20.72326583694641, 
      FormBox[
       TemplateBox[{"10", "9"}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {23.025850929940457`, 
      FormBox[
       TemplateBox[{"10", "10"}, "Superscript", SyntaxForm -> SuperscriptBox],
        TraditionalForm]}, {25.328436022934504`, 
      FormBox[
       TemplateBox[{"10", "11"}, "Superscript", SyntaxForm -> SuperscriptBox],
        TraditionalForm]}, {27.631021115928547`, 
      FormBox[
       TemplateBox[{"10", "12"}, "Superscript", SyntaxForm -> SuperscriptBox],
        TraditionalForm]}, {19.11382792451231, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {19.519293032620475`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {19.806975105072254`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {20.030118656386467`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {20.21244021318042, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {20.36659089300768, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {20.5001222856322, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {20.617905321288585`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {21.416413017506358`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {21.82187812561452, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {22.1095601980663, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {22.33270374938051, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {22.515025306174465`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {22.669175986001726`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {22.80270737862625, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {22.920490414282632`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {23.7189981105004, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {24.124463218608568`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {24.412145291060348`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {24.635288842374557`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {24.81761039916851, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {24.97176107899577, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {25.10529247162029, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {25.223075507276675`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {26.021583203494448`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {26.42704831160261, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {26.714730384054395`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {26.937873935368604`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {27.12019549216256, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {27.274346171989816`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {27.40787756461434, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {27.525660600270722`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{
  3.5935447127545233`*^9, 3.5935447636430197`*^9, {3.593544862078874*^9, 
   3.593544893407275*^9}, 3.593861288727942*^9, {3.5938613240725937`*^9, 
   3.5938613494574633`*^9}, {3.593861999935955*^9, 3.5938620232214947`*^9}, 
   3.5938622554516478`*^9, 3.5938623106517153`*^9, 3.593862353184194*^9, 
   3.593862419098036*^9, {3.5938624853737507`*^9, 3.593862494043664*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Maximize", "[", 
  RowBox[{
   RowBox[{"SM", "[", "k", "]"}], ",", " ", "k"}], "]"}]], "Input",
 CellChangeTimes->{{3.5938616767475557`*^9, 3.593861695783687*^9}, {
  3.59386204463983*^9, 3.593862057697104*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NMaximize", "::", "cvdiv"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Failed to converge to a solution. The function may be \
unbounded. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\
\\\", ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/NMaximize/cvdiv\\\
\", ButtonNote -> \\\"NMaximize::cvdiv\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.593862518360807*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.6560926948393481`*^12", ",", 
   RowBox[{"{", 
    RowBox[{"k", "\[Rule]", "0.015031571376627709`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.5938617095674887`*^9, {3.593862031735821*^9, 3.593862089534642*^9}, 
   3.593862518364418*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LogLogPlot", "[", 
  RowBox[{
   RowBox[{
    SuperscriptBox[
     RowBox[{"\[Alpha]M", "[", 
      RowBox[{"k", ",", "8."}], "]"}], "2"], "*", 
    RowBox[{"Pvar", "[", "k", "]"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"k", ",", " ", "0.001", ",", " ", "0.1"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5938625610001497`*^9, 3.5938626209714813`*^9}, {
  3.593862653703291*^9, 3.5938626542115803`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k8lN0XAHANo5CZ5xnLEC0kZC369dY8Uy5JsmapiJKElFK2iAhFoaJX
WZPCK0uUIlQ6hJCtLFlSKWshSYXI785f8/l+ZuZz7z3n3nPPlTvkYelM4+Pj
W72Ij4/3GdZrFzH/kg0Xp+2PDm2lkK+s2+jvGjY809tSKqtDod9Jadqh1Wzo
H1PoOYLtJ915ZmkVGyK/uv16hO0vuUNIroINEgOLpE0RhQKJNYpGT9hwNkGe
cVaXQiECfQ4pBWzYETNW1LONQrQwqSzFfDZULjvjrqRPodBFu8bv57HhMoeS
9cI+/7c8sDqbDSHLLVyFt1MofDolcTydDca2YbmbDCgUPWrTihLYYFUBI/8a
UiihrcVg4BwbXvYEqG43pdBC+uph32A2tHo/j7yC7eLle2lJEBvgnurnt9ja
LNkG1QA2GAp7Bx81o1CTuauFpw8bOuSDna+aU4j/1bzdghsbHC5YDLy1oNCJ
CpVT0lZsGEg7fMdpD4X0888nm65hw/rMzPPODhSaCj5YMVohCX0mVp0XPSn0
MXfQUMtZEq4WF17sCqNQS3Pc7Xw+Sfjl6O80c51CW9XZIYtSJeDkz5lpRhaF
hvu3Vc7qSkCJeoyjWTGFbsQltKm8F4flvS+2CdVQ6FxqvOGiEHEotXevH2zF
80krv8yQFYfsROKf330U6ukptZ0sEQPP/mc/Ssdx/E45RATai0HWp3G+WzMU
WregFr5lmgVRplv/bhHgIqmhjMGMJBZcja7Qn1zKRalsvff/S2TBJ5rrN1KU
i1YbfmiviWdBA/Nk+HpsjWzp6uE4FiR7XPM/ib392JV0tassePJ5v9cYtue3
0wcfhbFAIEWz4DODixp+G3W/cGdBCGuEXUFwUfCS742ftrKAuKUot1Wci/o7
36RZb2EB2zR7bB+2UfYjrxqKBYM/5tJOY0sa+UnnbGLBw8pvT+5j50UtHD6l
xQLxubEKOQku6mYw5hbWsCDIK4q+gL1BQlVluSge37Nt9X9sLkoaWDp/RYQF
a5m9xc+x+YrHm/mEWfBX/oRmF/arPYU+/YIsuFz5t0VEiosOJWyuyOVjgU9F
bpsH9lUZQxvOFAkBJrltWtJc9EXOOXxvDwluW1zdMpZxUUly4+TnLhLiBLOW
l2JHSGx0ONlJwmur9NJGbAWhxZsutZOgHJB79xe2w8TdkbJm/H3OuOMOGS5q
Kx81WVFFwoPx15v6scvtvMUG8khoBgttkeVcFN3+LvhULgnDw9sbZLHtzLeP
zmeTUFRfZqyBPa0nWS2ZRcL15Pn5XdjaKiW+hrdJYCnWaFzHvjv9pyv3Ogmr
N24rkVrBRbHXw9I8g0hInkxYtXQlF6GCdcMfAkngLAvNksEer+3VNA0gYbRm
gKGKbTL3z3MlPxIkV/YH7cQWdBrtfXeKhKZWjU/nsQPX7ZbZ4UzChX9OZP/E
VjGiOT1yImEyzXg9/you6nIqyJE7RIKC7LMEAntjvBBn7gAJ2i5ygqrY3+ef
2TywISGCZWF7ANvlleINGRMSFodz28qxJQZaey8akSBk4mhWj13199yaX4Yk
9DipZLVjy2n1PGrZTsJyK/epr9jvEq62XtAhoeAe35ykHBdFFnJlfmwhIaoi
0U0Oe3PDyKGDXBL+1NkVqWLfWNg2ydlMgrWt7JAOtoXLNDGhRYJFR+cDF2y+
c5k2+9eTIKPFzzyJnZ9omVavSUJnW+dOf+yljXmamWokOLoZ2ERh12g7mu1T
JCFF0b3jHjZ3UX1UlTQJv6uado5itxy7pr5ZioQElT6bH9jOHfua70mS4LWp
f/ss9pXcr6x4MRLsRINKF8tzUd9u0SQ3URI0pI3pcti+0E69FyHBykedpoQt
rJraaylMwlnFsHdq2Bv4NOW4i0kQ37Zz7Sbs8JxddxmLSMh6HiZnir1MQtoo
bIGAnXv1l1hiFwT3ff09T4DCyPSrPdid1p6afbMEFBXPjzhgH3/Oeb17hoBN
T9X1D2PTVPi96n8TkG9OBhzBVl34t/jhFAFaBwqDTmKDm72N8g8CYg6bG3tj
W7cpzKZ8J6Cd6TB1Gjsou2hL+DgB+9nXe4KwWeJBH2ZHCbhckSQdip0VZBDi
8ZWA3rzX2hewW6zeVtkME5BwNXYuEvtw+S2XxkECvifM5FzGnlE+skRvgIBF
iy3+F4N95d91OcWfCVDeFZF8DVv+77Sx6icCAj5H9cZhPz5SMXbrIwENymZ/
bmCbtF66Kv6BgIPnnk0lYPvcXdY630PApaqDZ1J48RX77O3ZTYCKmZdgKnbq
2VzJoU4C5BUmjt/C1h72KrF7S8CVsJr7adi1ltx9Le0ErLwz0HQb2/6ZwJx+
GwFP8rm1d7C/KzXeLH1DgM7rspR0Xn6uXdfReE1ApYq5SQYvP/P7++40E9Dc
PtzBc4GrYhi7iYDnA77cTGz9N+MK0Q0EHHcdDuS5k/u4hu8VATKOagk8H88K
PuJTR8CuN+uv8ExjGQp/eYnn+2joAM83Aom8AzUEjE1zhXlWHeo0ba0iYCZ6
VQxvPLC4/W3HCwIE9oRM8OZn/dQt9mkFXo+2mSrPI4pa2uuBgNp5H8RbT1Ds
bFtmOQH3Lw5p8tbLmqv0XfaMAP+02BlefLJcoqSuPiGgT8TpJi9+3NdWZfxl
BDyIMpK5ycsvJWvvV0KARfdGr2Rs5//650eLcT7yJDMTsQ+VaW8OLCLgKt/D
1njsg02h3iKPCAB9qb7rvPj+WvV17QMCzHTpCbHY+4RPKpYW4P0EJ3WvYu9d
8dzRMJ8AzXL3umhsS4P9nS65BPjF9XpHYO/alyf2K5sAMbGNCeexTU/8Mbtw
F8/XbjAxBNvwRmJ1eiYBR9wlNgVgbx1sL/x4C+fv2or37rz1zCqMe6QSEH3x
v0needjM8F67kILjpyQ+wDsvGzay0pYnETAl6Opkz4t3uNnlfXEENHFsq3Zi
KyfdrB25RkCBd2CNPrZi/ii/fywB7tas/3R4+7cj8kz8FQLKDO3nN2BLKb50
bbuIz6N2m/AKbEmOZLpTBAGHP/3+xcYWM3N+P3mBgK1ey4DEZvjy7ybDCJhT
kB8RwBao0dEzO0vAtocZcSO43tC6r5ztDSAg7piy6yfshbHeEvczBJxI2yjZ
gz0rEagZdZqABYUSoQbs784lsrWncP14Uqyfhz3uv9hm70kC5CJ+zqRjj17e
8+/gCQKeju2MSsYeLpoSorsT0Dk/rRuJ/Z6+/reuCwHbhTvmnbHrM7NfP9mH
x+94fIdXr+/abhlWtcXnWeigmgj2BdHXf5P3EnBytChyAdd35DOtGmhNgPXI
yuoh7Mf6O8K5ZgQQ5R81irEzPvdznukSkBZfUm2EHRrvZ6GOcPx2n47lYjsY
Lz1ycysBjx6XrNPAXvZQ+/pZioBfH/xGePdTbGjoty3/I6Atb0C3Dd9nQXKr
MsqVCVD01w6yxLZvf1imoURAD3L118XefGnH69Q1eP+u/GmwDntq4sTfIHkC
uq6324hiH4NnNjqyuN70ZO2uxvevjYOdKDAJ2FiZmK6G7cJRHwsdY8JMuD+r
U5aLfkw5miZ8YYLD0/inldjnCm7cuzfExPXvD/cedpIC34nOPiYIPLaDEOxm
Ruu4egcTzPN+Nitjb/rsN9FZzoRP944LeuB+QiS66odGDBO6BhNO9eD+JcFg
xkr/MhNivQfqAFtxkcYj20gmzBXW/crERr7x3ufPM8H+o2KTB7b3waM/u/yY
4JHRcWoR9vsNxO/zjkyQKrAOlcX90f1eu9luLSbs+XrZZ70kFwlxXjIWNJkQ
XYdGSexDN7RWr1ZnwrHczn8mcX8mbi5kckyJCSMXY0wLsf2h+OYfGSaM+Yp7
rsPWSyd1ZelMqHMzj1fA/V7bkZcR+98yoGxiteQoyUXq1VopIW0MUGlUl3qJ
HS6Xej/zNQOM+xnjt7E3dXt3jb1igOgeSmIv9k1jedUgYIDvqrBdz3H/6aJx
tik1mwGuAXt8Iphc9PuHlsTHAAYklSpZ/sL9LxGj9LHajwH+mQ/ka7FV1GRz
c30YsET+THkitv1huu5pDwbENxbv5WJD21t3hhMDZoX8iWAR3G8UBVZxjRhw
Myk6YVaIi1acrvFKlGLAnTjb6TpBLjKYtX1jWSQKP2pumtUvUGj9iF3L8UJR
kP9S8eUatmzn/qaLBaIgEh1ga4c9WeRYX54tCu8+NOV//UuhW6fcKlVS8Ray
6t0sjD097FdIixAFlZ/eXVvnKJTzNv5aoY0oSK+LjAifppBoUbsla24pyETd
u3xtgkLvHG776GgvBfuy5DCFXgqtfl5hV3paBB6eqnpUXEsh19hI84/PhWHD
npAvqg8pVGiVPuA9LQQ7jf7KTCdRyKee0NmzVQgCuB3ifucphNY3cTK9l0Ad
Q818+XEKLRHZoH87fzHQlFys2/ZSyDBxnPjyUxAuxPlrrcPvN90XOV9qJwVB
0Fxa6SN+33HGXKqyvgnCzcopiRhsNd0Pp51HBGEN3erDN/w+JEea3398JwjT
F7uEC/Qo1L3pQd7bF4LAP/yNoYrfl+6dXobVsYJgpN2VLkZRKIY9E5ymLgh3
nVivTqyjkF1cZfQjFUGIG/LslMFWJKMTa5UEobOR726tJoWeCq98OCEnCJd/
JV6Swx6e1x9EkoIgUb2d06KO19cfY9L3lw59FRLHVqlSaOK+srR8Cx0aip49
Pr+GQk/UJ9dsbKTD0Jf8JcrY4TlPtIzq6aCsYDVbr4DzmWFm4llFh0IF7ydM
bMN47+DKEjqMNh6Ij5OnUNpZGDh0mw6tAsJ1kSsptMvIpjDdkw4RJXP1ctIU
Gjpi41XjQYcBUYPtpVIUCoqw2TDiTocoGyv9Xdh5VTbFGq74/6PSjYFsHH8d
27JSOzosyzaeaJag0HPtfZXN+nQIjDMu28+ikMZy+zd/JOmgaUnLJUUoVE3Z
/7tCnA4rSccVCcIUst9nb61L0kGte8P8cuzIePuOcBE8XmXxrJIQhQbJ/d0k
Hx3WOmr2b1hMoVTBA5+URgTA+djCj/X8eL9NOExaPREA3aEXPUWzHHTYbMRt
U4kAdNc8rJTFfprn2SdbJACRa8S+hs5w0FG3Cy0D+QIwauC8YDLNQTWfcvJP
3xGADuqeVudPDgpq/3k0+ZIArE1hPauf4KCJsqjPn/YKgExBRJ7cIAe9ufC4
7dQUP6RvU/v7pImDmC1OZ95x+KFfTLlUJZWDWFHJzbf+4YdVem+1TG9ykKRB
q4LTBn4o45N45ZHCQbJP9ZpH1Plhb+JLl6IkDlK+K6fwexU/+G1ZWqIXz0F6
5z40kov5YVgifK1bDAf5rrOT29FKg4YoYz6+MA7y/3rNV7iFBhNdO0rUQzko
8L/6V40NNBB96SFoH8JBYbIcX+saGmhGnvIsC+agmCXSrxxLabBC8MunoEAO
yvnY4R14iwb+czYvlX056F4yo14nhQZdQTmWjj4cdH+PwUr+RBq8yCi9k+TN
QY8biuouXaOBlOTFJKYXB1WVxK2Iv0CDuqfCSvwnOeilV4PXvlAadD8ekdTz
4KB6DYG65cE04N4KfhdygoNaMry8MvxosHV//Tf+4xzU6pBb6+qDfy9Qgwzc
Oahj2eflqp54vsH0E5eOcVB3+zKv8RM0uGQ65dd4lIN6YyxrHxyjAf/k4CEW
9v8B72gXAA==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{-6.907755278982137, 26.41434305322947},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& )},
  FrameTicks->{{{{25.328436022934504`, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", 
          TagBox[
           InterpretationBox["\"1.0\"", 1, Editable -> False], 
           NumberForm[#, {2, 1}, NumberPadding -> {"", "0"}]& ], 
          
          TemplateBox[{"10", "11"}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm]}, {
      27.631021115928547`, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", 
          TagBox[
           InterpretationBox["\"1.0\"", 1, Editable -> False], 
           NumberForm[#, {2, 1}, NumberPadding -> {"", "0"}]& ], 
          
          TemplateBox[{"10", "12"}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm]}, {
      26.937873935368604`, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", 
          TagBox[
           InterpretationBox["\"5.0\"", 5, Editable -> False], 
           NumberForm[#, {2, 1}, NumberPadding -> {"", "0"}]& ], 
          
          TemplateBox[{"10", "11"}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm]}, {
      29.240459028362647`, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", 
          TagBox[
           InterpretationBox["\"5.0\"", 5, Editable -> False], 
           NumberForm[#, {2, 1}, NumberPadding -> {"", "0"}]& ], 
          TemplateBox[{"10", "12"}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm]}, {
      26.021583203494448`, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", 
          TagBox[
           InterpretationBox["\"2.0\"", 2, Editable -> False], 
           NumberForm[#, {2, 1}, NumberPadding -> {"", "0"}]& ], 
          
          TemplateBox[{"10", "11"}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm]}, {
      28.324168296488494`, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", 
          TagBox[
           InterpretationBox["\"2.0\"", 2, Editable -> False], 
           NumberForm[#, {2, 1}, NumberPadding -> {"", "0"}]& ], 
          
          TemplateBox[{"10", "12"}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm]}, {
      26.42704831160261, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", 
          TagBox[
           InterpretationBox["\"3.0\"", 3, Editable -> False], 
           NumberForm[#, {2, 1}, NumberPadding -> {"", "0"}]& ], 
          
          TemplateBox[{"10", "11"}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm]}, {
      28.729633404596658`, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", 
          TagBox[
           InterpretationBox["\"3.0\"", 3, Editable -> False], 
           NumberForm[#, {2, 1}, NumberPadding -> {"", "0"}]& ], 
          
          TemplateBox[{"10", "12"}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm]}, {
      25.733901131042668`, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", 
          TagBox[
           InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], 
           NumberForm[#, {2, 1}, NumberPadding -> {"", "0"}]& ], 
          
          TemplateBox[{"10", "11"}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm]}, {
      28.03648622403671, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", 
          TagBox[
           InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], 
           NumberForm[#, {2, 1}, NumberPadding -> {"", "0"}]& ], 
          
          TemplateBox[{"10", "12"}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm]}, {
      27.274346171989816`, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", 
          TagBox[
           InterpretationBox["\"7.0\"", 7, Editable -> False], 
           NumberForm[#, {2, 1}, NumberPadding -> {"", "0"}]& ], 
          
          TemplateBox[{"10", "11"}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm]}, {
      29.576931264983862`, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", 
          TagBox[
           InterpretationBox["\"7.0\"", 7, Editable -> False], 
           NumberForm[#, {2, 1}, NumberPadding -> {"", "0"}]& ], 
          
          TemplateBox[{"10", "12"}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm]}, {
      25.423746202738826`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {25.51075757972846, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {25.590800287401994`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {25.664908259555716`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {25.79843965218024, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {25.859064273996673`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {25.916222687836623`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {25.970289909106896`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {26.714730384054395`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {27.12019549216256, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {27.40787756461434, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {27.525660600270722`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {27.726331295732873`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {27.813342672722502`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {27.89338538039604, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {27.967493352549763`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {28.101024745174282`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {28.16164936699072, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {28.218807780830666`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {28.272875002100943`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {29.017315477048438`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {29.4227805851566, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{25.328436022934504`, 
       FormBox["\"\"", TraditionalForm]}, {27.631021115928547`, 
       FormBox["\"\"", TraditionalForm]}, {26.937873935368604`, 
       FormBox["\"\"", TraditionalForm]}, {29.240459028362647`, 
       FormBox["\"\"", TraditionalForm]}, {26.021583203494448`, 
       FormBox["\"\"", TraditionalForm]}, {28.324168296488494`, 
       FormBox["\"\"", TraditionalForm]}, {26.42704831160261, 
       FormBox["\"\"", TraditionalForm]}, {28.729633404596658`, 
       FormBox["\"\"", TraditionalForm]}, {25.733901131042668`, 
       FormBox["\"\"", TraditionalForm]}, {28.03648622403671, 
       FormBox["\"\"", TraditionalForm]}, {27.274346171989816`, 
       FormBox["\"\"", TraditionalForm]}, {29.576931264983862`, 
       FormBox["\"\"", TraditionalForm]}, {25.423746202738826`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {25.51075757972846, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {25.590800287401994`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {25.664908259555716`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {25.79843965218024, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {25.859064273996673`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {25.916222687836623`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {25.970289909106896`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {26.714730384054395`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {27.12019549216256, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {27.40787756461434, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {27.525660600270722`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {27.726331295732873`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {27.813342672722502`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {27.89338538039604, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {27.967493352549763`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {28.101024745174282`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {28.16164936699072, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {28.218807780830666`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {28.272875002100943`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {29.017315477048438`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {29.4227805851566, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {{{-6.907755278982137, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.001\"", 0.001, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-6.214608098422191, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.002\"", 0.002, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-5.298317366548036, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.005\"", 0.005, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-4.605170185988092, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-3.912023005428146, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.020\"", 0.02, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.995732273553991, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.050\"", 0.05, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.302585092994046, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.200\"", 0.2, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.500\"", 0.5, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-5.809142990314028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.521460917862246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.115995809754082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.961845129926823, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.8283137373023015`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.710530701645918, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.6592600369327783`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.4079456086518722`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.2039728043259361`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-6.907755278982137, 
       FormBox["\"\"", TraditionalForm]}, {-6.214608098422191, 
       FormBox["\"\"", TraditionalForm]}, {-5.298317366548036, 
       FormBox["\"\"", TraditionalForm]}, {-4.605170185988092, 
       FormBox["\"\"", TraditionalForm]}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm]}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm]}, {-2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {-5.809142990314028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.521460917862246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.115995809754082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.961845129926823, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.8283137373023015`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.710530701645918, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.6592600369327783`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.4079456086518722`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.2039728043259361`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}},
  GridLines->{None, None},
  Method->{},
  PlotRange->{{-6.907755278982137, -2.3025850929940455`}, {26.41434305322947, 
   28.135339270434184`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{{{-6.907755278982137, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.001\"", 0.001, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-6.214608098422191, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.002\"", 0.002, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-5.298317366548036, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.005\"", 0.005, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-4.605170185988092, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-3.912023005428146, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.020\"", 0.02, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.995732273553991, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.050\"", 0.05, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.302585092994046, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.200\"", 0.2, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.500\"", 0.5, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 3}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-5.809142990314028, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.521460917862246, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.115995809754082, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.961845129926823, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.8283137373023015`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.710530701645918, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.506557897319982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.2188758248682006`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.8134107167600364`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.6592600369327783`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.5257286443082556`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.4079456086518722`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.2039728043259361`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.916290731874155, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}, {{25.328436022934504`, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", 
         TagBox[
          InterpretationBox["\"1.0\"", 1, Editable -> False], 
          NumberForm[#, {2, 1}, NumberPadding -> {"", "0"}]& ], 
         TemplateBox[{"10", "11"}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], TraditionalForm]}, {
     27.631021115928547`, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", 
         TagBox[
          InterpretationBox["\"1.0\"", 1, Editable -> False], 
          NumberForm[#, {2, 1}, NumberPadding -> {"", "0"}]& ], 
         TemplateBox[{"10", "12"}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], TraditionalForm]}, {
     26.937873935368604`, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", 
         TagBox[
          InterpretationBox["\"5.0\"", 5, Editable -> False], 
          NumberForm[#, {2, 1}, NumberPadding -> {"", "0"}]& ], 
         TemplateBox[{"10", "11"}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], TraditionalForm]}, {
     29.240459028362647`, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", 
         TagBox[
          InterpretationBox["\"5.0\"", 5, Editable -> False], 
          NumberForm[#, {2, 1}, NumberPadding -> {"", "0"}]& ], 
         TemplateBox[{"10", "12"}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], TraditionalForm]}, {
     26.021583203494448`, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", 
         TagBox[
          InterpretationBox["\"2.0\"", 2, Editable -> False], 
          NumberForm[#, {2, 1}, NumberPadding -> {"", "0"}]& ], 
         TemplateBox[{"10", "11"}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], TraditionalForm]}, {
     28.324168296488494`, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", 
         TagBox[
          InterpretationBox["\"2.0\"", 2, Editable -> False], 
          NumberForm[#, {2, 1}, NumberPadding -> {"", "0"}]& ], 
         TemplateBox[{"10", "12"}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], TraditionalForm]}, {
     26.42704831160261, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", 
         TagBox[
          InterpretationBox["\"3.0\"", 3, Editable -> False], 
          NumberForm[#, {2, 1}, NumberPadding -> {"", "0"}]& ], 
         TemplateBox[{"10", "11"}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], TraditionalForm]}, {
     28.729633404596658`, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", 
         TagBox[
          InterpretationBox["\"3.0\"", 3, Editable -> False], 
          NumberForm[#, {2, 1}, NumberPadding -> {"", "0"}]& ], 
         TemplateBox[{"10", "12"}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], TraditionalForm]}, {
     25.733901131042668`, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", 
         TagBox[
          InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], 
          NumberForm[#, {2, 1}, NumberPadding -> {"", "0"}]& ], 
         TemplateBox[{"10", "11"}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], TraditionalForm]}, {
     28.03648622403671, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", 
         TagBox[
          InterpretationBox["\"1.5\"", 1.5, AutoDelete -> True], 
          NumberForm[#, {2, 1}, NumberPadding -> {"", "0"}]& ], 
         TemplateBox[{"10", "12"}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], TraditionalForm]}, {
     27.274346171989816`, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", 
         TagBox[
          InterpretationBox["\"7.0\"", 7, Editable -> False], 
          NumberForm[#, {2, 1}, NumberPadding -> {"", "0"}]& ], 
         TemplateBox[{"10", "11"}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], TraditionalForm]}, {
     29.576931264983862`, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", 
         TagBox[
          InterpretationBox["\"7.0\"", 7, Editable -> False], 
          NumberForm[#, {2, 1}, NumberPadding -> {"", "0"}]& ], 
         TemplateBox[{"10", "12"}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], TraditionalForm]}, {
     25.423746202738826`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {25.51075757972846, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {25.590800287401994`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {25.664908259555716`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {25.79843965218024, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {25.859064273996673`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {25.916222687836623`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {25.970289909106896`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {26.714730384054395`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {27.12019549216256, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {27.40787756461434, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {27.525660600270722`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {27.726331295732873`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {27.813342672722502`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {27.89338538039604, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {27.967493352549763`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {28.101024745174282`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {28.16164936699072, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {28.218807780830666`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {28.272875002100943`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {29.017315477048438`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {29.4227805851566, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{{3.593862589519977*^9, 3.593862610296955*^9}, 
   3.593862661544482*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzNW3lAlNUW/yqjzXplpb1Xvazea++1vDbLckkTy7Qs5Zml4Qqau2nKQ3PN
NNdH5pqmuaSJIiAK4gIqIiKLoiwKioLsMMKwz5x3z/3O/fhm5vvmGwbT+IPh
nvnN+c6999xzfufc4UPv8T6DR3iP9x3o3brLWO/RPr4Dx7V+b9RYJrrpBkm6
4S5Jkla0lvBvYH/SL/7zF/xFA42/O/GXe6G+MBLmzt0MoVsXwrQtF6AkYSL0
WZoJlXZy23E6pK3pC6936QleXr2h1xezILkCpAe4zhZu6kyF5Pk+MHzObxC2
ayfEFNXd1UgTayyVkLFzMDzfdgUcL6qFOvv3mbY7G6XTcZoJ5x11tmqUTodp
OnzOFTuN5uqwNkzbjfLOv8tf7mO/quDMzPdhYpIZoDYTAjwHwSETaMg/h1UT
7HBlZjgXFghHmPlQXwWmWmurq6HWJPsulMeD34Q4uALQvNFqZXlN5mLo+Gk0
mLTfd0utzaRLIXZqV/vPtXTT2oZJR8MxPWs99D4ub2xzJ3PWXGobf7iXTSkH
NnRsD6uz2fSgBPZ6toHpqdWO8s6PwFMPtnHE1eVD+PzVkFJhpUhwX9N1sh9L
/g7w6hYIeZaGXXNVLcmVhdF+3121yoxNl7Teb+muWjHprgGwoL2OtR56H3dw
BteW2j44sE+t79AOVhEqwvMtmJNR4yjv/Cg893AbRxz7qTkbAF7fnWbOCK2u
gtrph6Nh58rJ0OOZJ6HPlstQBzb+4JJakqvXRuN9d9Uqk565F1Y6vt/SDbU2
k94UD2v0rPXQU6vlDy7soEOyqISTfp1hXKIZ5wiLPIeyEGLVkPeDZSM62Yw3
bTwBpRY2PLcI2nbeAQUWECnTfbVDITJuAXw85kcIPVkG9UrKbIypTF5aDXmJ
M+Gdnhg1NT/X3I0VsJ3xJtg3yeFzLd2w1nbGblqLwaXGyaQdF5p9jrxBIY0F
4TB79kYI2x4As7ZfghrKYPbySruxKXMzzBjWG9q+0A7G7C7k2/ZAE3XW1OdD
6PBe0KPHx9B/TjJUqNmTizprWDApOr4B5i1OY+uh9X7jddrPtUZDZ6vG2mk3
V5MbdoLBXB3Wt4E5TuUvN7FfVqg1lUKNFaSBGrInZDh/GJUbz8uwhvKEjTLd
eiuZHlhSXAmVlbV8dJsMfxpfshDtofp8MxQ8pKHpbg3Z7RqyWzVkN2vImrko
u9FF2cNNsPkWDZmHi/bdpCvzUMvAysKJr892lMkmaO6X1iyechGnJXtSQ0a7
CydP5sHSH2MkA5OSCL58WSzEx+eoFtEpfMjgQLBYrEbwRIKfO1cM06dF8tEd
xvANvyZAdFSWq/CRI3ZCRUWNETyB4CZTNf8IcC5gCN+/7xw3yEX43DkH+XRd
hA/33aHInMBPqBZywfxoPrrTGI52Hzl8wVX4l/23KnHECTxeWcgqGDokkI/u
MoaHhaXB5s1JrsKnTomACxdKjeDHCY7eOHjgNj5yEmgFPDnpMixZfNhVOB6P
Y8cuugofPiwIamvrjeBxBC8sNMN//fbw0d0q+I2IFjpDgs/Aju0pDiAdnf7/
DYe8vHIj+DGC19VZ4KvhQXx0jzH8xIkcviYuwhGKK+4iHE+niC5O4LEEx2nO
oOjSwhi+7feTEB6e4Sp83JhQKC+vMYIfJXhpaRVM/DqMj+41hoeEnIGdQadd
hU/6ZjcUF5vVcNm/MAlbwfbHKv1VQ1UMqcKIOWZ0CB/dJ6viEagSUu2achV6
TUagvskt/OHliT/AhFWnoILZYa1IgVXfLIDkCivlS8ZLXOhJNndicOTes7Dl
t2S1wYrqhiYZ6DSGCIvrVAu5wf4wZsk2WDJmKoReriUKc6trnTJt6zBc5eZe
0bJO1bXR61QQ+WjGFi4JFnbrAt0XJ+NCOhjmrGtja9gR1T6PHhnMR/er9pnV
NPmx9l0EvcqZOA/f15Vjp0BIrpkt4hQYt/o0mK0gW3+3UTOBaTfBieUd4FW/
/ZDL6LHdWIuBiWmE7UqDwG2nNKZRnbZQXfzSj2bNp3ZXc0YQROXVErwW8qKC
4KxZuOs9BqVhQwl5JaY/fLD2orx6tmN5VznpPkzT+Hr8Lk7XHacBjsWbLHYs
QpoLE41rNddMtFtzYSwG1vHjQvmopdqnbWuch2hV3X0MspTdjByoHvMof2HV
Rr0ZsiO8wHMNqbUda2k9RFqJkrM8bKHiskGrtQouRCyD+VFFssfYjp1pPR53
CZYGyIeetGrFawH39wuHS5dMRvBo1YJ/M1FOHg8Yw5f9dBRij2YbwaMIziP+
qGBMrZQZnMLXrzsB+xj5xZET+EGCIxvs328L1NdbpL8Zw9f9cgJ+WirnNSfw
AwRHWor8BHfzQWP4qpVxnLjjSA3njEqAcLUxMloVH9bUuZ/g37IIn5ZayEdO
4PsIjhszb6483Yf14ZEEr6qqA58h27E6kf5uDA/43xGeEHHkBL6X4HFxF2Ha
VHn0iD48guBlZVUwaMA23FOptQxvLM0QqvAExB+/xEekSgQ8pqk40hcmxMlp
+zrTjHAyGHm2cEw5YFBH4nawFkWAz6R4KFfmrkkT/iCm8TQZeOVKtbL180mW
eqYQvHpt5MfjMVujwVII4T7+kKAkFE0KcfUJiLAXA/GEr3dhR0L6gWTo7Xic
L14skx63sxcsULjHB6YlmxV7/1SM5BmaQ0FBBfgM3Q5mc600j2RYhhw6dJ6P
Hm/wdms1FORWAvI/S8Fu8Jl1iufrPx1LEVM7GpOthIvvSRYYeAoWLZQT2z8a
psb8N32BF3zUuy/07dMD3nzNH1KqaOOuPXN5joxdsTwWgqis+o5kaWmFMMxn
Bz8j/5Qn8BittLuPwaoZMypLC9JskmGWHTxoG+RcMonubxPYDEVp3iJANsMO
vzSLZLhDIkHbP6nxDOdfpBVLe2xGYFacQbKgHSlK20luOmqmjxcIvu6XeFjz
s9y4mEayrKwSGMFOfE1NPfU8narA8r/f51vQGulbkrGNg5Ff7YScHBMFF00V
LxIc+3y4ZIUFFUq7HhsRWEmAEp80VbxE8PT0Qhg7JoS7jD/JsI8hzsYz+ipe
Jviu0FRYvEimun4kYxGDt4gw1z+rUsHZySsEmj8vSmlTTCbZnO8OKMn0Wf1n
/1u9YCN2YtdQmkSyqINZnDyA4saaKoQVyJGwR8m8WppIMkxAIvA9r6/iVYIj
95g8aQ+nnRNIhl1S0U9zouI1gm/depJROrk9NJ5kyMRxPUDxXU0Vr4snfn9Q
OSxjSSayEB6qF4xV4HJiOZSRXqSowKU8FJ3FR05UvEFw7A7hKWCv0miSnU7J
h5nTZWL3or6KNgTHFvD4saHcJ0eSDOMQMlnG28h3VQ71FoHQmcSCjSAZcvzw
Pel89JL+s4WKlSuOKb3w4STD8gYbXhgvXjZWgWwAmTTLktIwlQxVZGeXke82
mm62VW0pxgh0eV+SYW0pwhGpFxTUjiuWX18K+jYZjMwCI1dxsVkaSjKk5HgQ
MX7Kh1NhTA1cUvxcS1r6DhmYeqaA+yDbAWkIyWbP2q/EKyOjrxUtbUe2IU3D
PIdhaRDJMPfNnCFXcK8a2+suLb2nkbS0EtKXfgJvd/sUvHr3gi9myDf7WneT
7WkieFEgEvYAkuGFBHpVSUklBdaGY6AmkeKnidy0hXvctL4MEoLDIKvSCpaq
K1Bnlf2W01MxO8ziIgx5kwwPODbTQUkbkuzVYMc1aUdv1vxmQ1P5KW77z0tj
8RsvmsSxA1mLEQ8djcVk6UuSZV8o5YEdA6mccnT5KdZIecHeMCPZrPmYjsqW
W3jHMT4+R+qnejTK2OMoLRFrvM2Oj5ohi3GXK1YL5Ad+CF0D87F+0fS6d0k1
Ul/BN74gGQbftWvkSz2bx9mTVOZPZ9bA5IGe8MqbPhCUV6c1sU6kFfMoRkOW
fKS+JMMGFIZ+5ueULDUTUWeCY7N+FItXmIo/IxluSWJiLh85UfEewTEVIz1E
cvQfksUcuQA/zJN7aG+qVPBU7EkgTPnig71Jhh0uPJ4oe0v/2UIFXtajt2C4
7UUy5Jmi+nSioivB8WYY+Qyq+IRkKafylZv6tvoq3id4ZORZnrmRjHxMMiQj
6AUYZ97WV/EBwfFaGPk0+5j0EcmQloiOsBMV3QiOnb4p/hHciu4kO3u2GPwm
y3eq7+ir+JDgB/af43B0HqEWAyZOpKjITFlDtZU9CHTwQCa/lcNFFFP6MSBG
6T6203+2UIFfdcBFxJ0Xe4OZaNZMORO111chFgyLEr7mxZVSF5LhpSXWu8hu
O+irENuG5TH6H1ZXwsHxPCDPBiV0aaroSfDz50t56cvWXjmpoSGpSr3RUV+F
8D88lXiNz1iDEsWw6SqqsHft90H4PvM2fvpDgs8oeQIjAk4JN7CT/rNlFc2Q
WsG0b/fy7h9jBYKNYSmKTfmkpMsUPDS19CYtGF9Xr4rjjU/mFIKY/rw6Trm9
dKJFhBEk5Via5F0upzAihxZReb6nr6IPwTE64f7jUr6hkqFaLN266Kv4jOaC
LoQcafOmJJyXqOgEP2WvFI+M+TrfrM9Va4QXALjazD1FvcqjOquLMX/IB0HV
xdRi6in2/0ByLVi6yGyJCbk8B7H6VmkY4AzQC1mApxgpEqaaQIqcrb63VmjJ
Vabn/VRbiYEdc0R1dZ3o9mBZ0bfPZhb/Mil8OTVYdZVNuKtJzQUTQufHuxDs
GItWGzvDfLVZgqIArWmoWEWNu21677pxc29aL3akYTLLGHg5ZDJVizZ5ZmYx
76qkpxdSViKDm9nzcyG2u/i+rtR8ANmEuQzjN2Z1dsqfoMlh6MJYhE3R7naT
s6XayjHQ+C7zHbRDfxQ7H0QmIRXDJIDkiG3H4yTGRIBlBn61iuVqOX2Lr5yC
+kb8ftqKxvL2IfQkloPBu/9WFnvDkae3JjG2WtAmbMeyxZWTf5PZuw9pP5tR
xCkQ0o6srJKHhJdV1zFCe5CTzazMkp7qh7rF4YfRDuPzsO+FuRXpFxLAVvQe
LjW60DDfIF7HYpEuUwRV6pebWB78+xS/rk/gX0rF5Tl16jIuTwvShZFv65Zk
nrEw6bDdpZSvmftGkdZdoWn8iOLHkNBHRGRgF178i0khy4F4yzCOLQteAWCf
lxFGL33FcsuwBf9SI34HbeqUvfBR93XcZOxO4t0REt+NGxPhl7XxsPyno7CW
vS5eeBgGDvidZ0bcmw3rE9n+lH6m/yS5y3o7J7DIg7EuRu6Bzrtk8RFYsSIW
IsIzIIWVIcXF5n72C5ulr5q+jc4HBv9Wq/e3dMP/Ae3EqV8=\
\>"]]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.593863502590612*^9, 3.5938635077518263`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"0.125", "/", "0.04"}]], "Input",
 CellChangeTimes->{{3.5938678356518507`*^9, 3.5938678412998877`*^9}}],

Cell[BoxData["3.125`"], "Output",
 CellChangeTimes->{3.593867841674638*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"0.125", "/", "0.005"}]], "Input",
 CellChangeTimes->{{3.5938678435972*^9, 3.593867848694984*^9}}],

Cell[BoxData["25.`"], "Output",
 CellChangeTimes->{3.593867849070376*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{613, 721},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
ShowSelection->True,
Magnification:>0.75 Inherited,
FrontEndVersion->"9.0 for Linux x86 (64-bit) (February 7, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3593429625-3046814"->{
  Cell[53290, 1512, 397, 6, 60, "Print",
   CellTags->"Info3593429625-3046814"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3593429625-3046814", 154839, 3649}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 395, 5, 27, "Subsubsection"],
Cell[977, 29, 22173, 654, 1076, "Input",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[23175, 687, 197, 4, 18, "Input"],
Cell[23375, 693, 390, 5, 18, "Output"]
}, Open  ]],
Cell[6124, 173, 5321, 114, 246, "Input"],
Cell[11448, 289, 2320, 48, 110, "Input"],
Cell[CellGroupData[{
Cell[23802, 703, 494, 12, 21, "Input"],
Cell[24299, 717, 26590, 552, 138, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50926, 1274, 216, 5, 18, "Input"],
Cell[51145, 1281, 494, 12, 20, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[51688, 1299, 165, 2, 29, "Subsection"],
Cell[51856, 1303, 19320, 517, 1063, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[71213, 1825, 115, 1, 29, "Subsection"],
Cell[71331, 1828, 781, 19, 93, "Input"],
Cell[72115, 1849, 599, 10, 24, "Input"],
Cell[CellGroupData[{
Cell[72739, 1863, 1314, 33, 76, "Input"],
Cell[74056, 1898, 593, 13, 18, "Message"],
Cell[74652, 1913, 543, 12, 18, "Message"],
Cell[75198, 1927, 545, 12, 18, "Message"],
Cell[75746, 1941, 541, 12, 18, "Message"],
Cell[76290, 1955, 772, 18, 49, "Output"]
}, Open  ]],
Cell[77077, 1976, 7934, 168, 348, "Input"],
Cell[CellGroupData[{
Cell[85036, 2148, 163, 3, 24, "Input"],
Cell[85202, 2153, 342, 9, 18, "Message"],
Cell[85547, 2164, 240, 6, 24, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[85824, 2175, 3607, 88, 246, "Input"],
Cell[89434, 2265, 739, 15, 18, "Message"],
Cell[90176, 2282, 737, 15, 18, "Message"]
}, Open  ]],
Cell[CellGroupData[{
Cell[90950, 2302, 3648, 88, 229, "Input"],
Cell[94601, 2392, 284, 8, 18, "Message"],
Cell[94888, 2402, 271, 7, 18, "Message"],
Cell[95162, 2411, 284, 8, 18, "Message"],
Cell[95449, 2421, 286, 8, 18, "Message"],
Cell[95738, 2431, 286, 8, 18, "Message"],
Cell[96027, 2441, 284, 8, 18, "Message"],
Cell[96314, 2451, 284, 8, 18, "Message"],
Cell[96601, 2461, 284, 8, 18, "Message"],
Cell[96888, 2471, 283, 8, 18, "Message"],
Cell[97174, 2481, 284, 8, 18, "Message"],
Cell[97461, 2491, 903, 16, 24, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[98401, 2512, 2834, 77, 229, "Input"],
Cell[101238, 2591, 304, 8, 18, "Message"],
Cell[101545, 2601, 306, 8, 18, "Message"],
Cell[101854, 2611, 306, 8, 18, "Message"],
Cell[102163, 2621, 531, 11, 18, "Message"],
Cell[102697, 2634, 184, 5, 24, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[102918, 2644, 2788, 76, 229, "Input"],
Cell[105709, 2722, 124, 2, 24, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[105870, 2729, 2805, 76, 212, "Input"],
Cell[108678, 2807, 266, 4, 24, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[108981, 2816, 141, 3, 24, "Input"],
Cell[109125, 2821, 74, 1, 24, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
